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ABSTRACT 

We  examine  the  feasibility  of  an  expert  system  to 
assist  in  the  diagnosis  of  vehicle  malfunctions.  A  passive 
expert  planner  is  proposed  that  utilizes  multiple  domain- 
dependent  knowledge  bases.  The  system  is  implemented  on  a 
personal  computer,  and  is  based  on  general-purpose  car 
repair  manuals.  An  effort  is  made  to  quantify  the  amount  of 
information  processing  necessary  to  adequately  define  the 
problem.  The  knowledge  base  and  inference  procedures  for 
such  a  system  are  also  presented. 
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A.  BACKGROUND 

The  goal  of  artificial  intelligence  (AI)  is  to  develop 
computer  programs  that  could  in  some  sense  think;  that  is, 
solve  problems  in  a  way  that  would  be  considered  intelligent 
if  done  by  a  human. 

Artificial  intelligence  imitates  both  the  basic  problem 
solving  and  learning  process  of  human  beings.  "In  the 
sixties,  AI  scientists  tried  to  simulate  the  complicated 
process  of  thinking  by  finding  general  methods  for  solving 
broad  classes  of  problems;  they  used  these  methods  in 
general-purpose  programs.  However,  despite  some  interesting 
progress,  this  strategy  produced  no  breakthroughs. 
Developing  general-purpose  programs  was  too  difficult  and 
ultimately  fruitless."  [Ref.  1] 

"It  wasn’t  until  the  late  1970s  that  AI  scientists, 
began  to  realize  something  quite  important:  the  problem¬ 
solving  power  of  a  program  comes  from  knowledge  it 
possesses,  not  just  from  the  formalisms  and  inference 
schemes  it  employs."  [Ref.  1]  This  realization  led  to  the 
development  of  special-purpose  computer  programs,  systems 
that  were  expert  in  some  narrow  problem  area.  These 
programs  were  called  expert  systems.  This  knowledge  can 


V 


often  be  accessed  much  faster  and  with  greater  accuracy  in  a 
computer  than  from  the  human  expert. 


Within  the  last  few  years,  research  in  the  field  of 
artificial  intelligence  has  grown  significantly.  Early 
pioneers  of  expert  systems,  such  as  MYCIN  [Ref.  2]  in  the 
area  of  medical  diagnosis,  have  proven  successful  enough  to 
motivate  the  investigation  of  similar  expert  systems  in 
others  fields  of  study.  One  such  product  related  to  vehicle 
diagnosis,  besides  equipment  maintenance  expert  systems  in 
commercial  and  industrial  environments,  has  recently  been 
put  into  service  by  ANALYTICS;  it  is  called  AIJPA 
(Artificial  Intelligence  Job  Performance  Aid). 

B.  OVERVIEW 

While  vehicle  repairs  can  be  made  by  many  people, 
accurate  troubleshooting  is  a  rare  skill  for  the  amateur  and 
the  professional  alike.  For  that  reason,  a  shortage  of 
technical  experts  could  have  a  drastic  effect  on  the 
efficiency  of  equipment  malfunction  diagnosis.  The 
personnel  performing  this  task  must  possess  both  a  good 
technical  background  and  a  great  deal  of  training  and 
experience  on  the  particular  equipment  being  repaired. 
Therefore,  an  expert  system  applied  to  vehicle  diagnosis 
could  improve  job  performance,  with  less  maintenance  cost. 
It  will  also  help  solve  the  lack  of  well-trained 
professionals . 
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Thus,  the  purpose  of  this  thesis  is  to  assess  the 
feasibility  of  augmenting  the  mechanic  with  a  computer  in 
the  maintenance  of  vehicle.  Based  on  current  diagnostic 
expert  systems  such  as  MYCIN  [Ref.  2],  our  expert  diagnosis 
system  will  contain  a  knowledge  base  obtained  from  technical 
manuals  and  expert  mechanics.  It  should  be  possible  for 
less-qualified  mechanics  to  quickly  and  accurately  assess 
vehicle  malfunctions  through  interaction  with  the  expert 
system. 

The  particular  objectives  are  as  follows: 

1.  Quantify,  through  the  implementation,  the  amount  of 
information  processing  necessary  to  sufficiently  diagnose 
the  vehicle  malfunctions. 

2.  Evaluate  the  problems  encountered  in  implementation 
when  a  rule-based  expert  system  is  chosen  as  a  basis. 

3.  As  far  as  the  effectiveness  of  programming  languages 
is  concerned,  evaluate  the  efficiency  and  ease  of  use  of 
PROLOG  throughout  the  implementation. 

The  implementation  of  a  small-scale  expert  diagnosis 
system  demonstrates  the  feasibility  of  a  larger-scale 
system.  This  implementation  involves  several  sections  of 
the  engine  system  of  the  vehicle.  The  design  is  implemented 
in  Arity  Prolog  [Ref.  3]  on  an  IBM  XT  computer. 

Three  assumptions  have  been  made  to  simplify  the 
implementation . 
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1.  There  is  no  partial  certainty  assigned  to  the 


existence  of  any  individual  malfunctions. 

2.  All  indications  presented  to  the  mechanic  by  test 
equipment  are  correct. 

3.  There  exists  at  least  one  malfunction. 


.v'y.v 


II.  BACKGROUND 


A.  EXPERT  SYSTEM  CONCEPTS 

An  expert  system  is  an  extensive  body  of  knowledge 
about  a  specific  problem  domain.  Characteristically ,  this 
knowledge  incorporates  facts  and  rules  from  human  experts 
and  written  documentation,  and  is  made  available  to  users, 
applying  some  inference  mechanism  which  governs  those  rules, 
to  provide  solutions  to  the  problems  brought  by  its  users. 

1 .  Features  of  Expert  Systems 

As  Forsyth  [Ref.  4]  lists  some  of  the  distinctive 
features  of  expert  systems: 

a.  An  expert  system  is  limited  to  a  specific  domain 
of  expertise. 

b.  It  can  reason  with  uncertain  data. 

c.  It  can  explain  its  reasoning  path  in  a 
comprehensive  way. 

d.  The  facts  and  inference  mechanism  are  clearly 
separated.  (Knowledge  is  not  encapsulated  into 
the  deductive  procedures.) 

e.  It  is  designed  to  grow  incrementally. 

f.  It  is  typically  rule-based. 

2.  Building  an  Expert  System 

"The  main  players  in  the  expert  system  environment 
are  the  expert  system,  the  domain  expert,  the  knowledge 


engineer,  the  expert-system-building  tool,  and  the  end  user 
[Ref.  1].  Their  basic  roles  and  their  relationship  tc  each 
other  are  summarized  below. 

a.  The  Domain  Expert:  A  person  who,  through  years 
of  training  and  experience,  has  become  extremely 
proficient  at  problem  solving  in  a  particular 


domain . 


A  person  who,  with  a 


background  in  computer  science,  knows  how  to 
build  expert  systems.  The  knowledge  engineer 
interviews  the  domain  expert,  organizes  the 
knowledge,  and  decides  how  it  should  be  represen¬ 


ted  in  the  expert  system. 


Both  the  pro¬ 


gramming  language  and  support  environment  used  by 
the  knowledge  engineer  or  programmers  to  build 
the  expert  system. 

End  User:  The  person  for  whom  the  expert  system 
was  developed. 


Expert  systems  need  to  be  organized  in  an  orderly 
manner  to  avoid  confussion.  In  general,  the 
knowledge  is  divided  into  three  categories. 
[Ref.  4] 


1.  Factual  Knowledge:  This  knowledge  represents 


a  particular  case  and  is  usually  gathered 
through  a  dialogue  with  the  user. 

2.  Procedural  Rule  Knowledge:  This  knowledge  is 
usually  collected  in  advance  from  the  domain 
specialist  and  forms  the  core  of  a  knowledge 
base.  This  also  forms  the  reasoning  part  of 
the  system  to  infer  conclusions. 

3.  Control  Knowledge:  The  system  needs  to  have 
a  variety  of  control  strategies  available  to 
it  so  that  alternatives  can  be  tried  out  at 
run  time. 

b.  Procedural  Knowledge 

The  procedural  knowledge  most  commonly  used  in 
current  expert  systems  is  a  rule-based  knowledge 
representation  in  the  form  of  IF  <condition>  THEN 
<action>  statements,  as  shown  in  Figure  2.1. 

IF 

1.  STARTER  TURNS  BUT  NOT  THE  ENGINE,  and 

2.  NO  HIGH  RESISTANCE  TO  MOVING  ENGINE 

THEN 

CONCLUDE  THAT  THERE  IS  A  MALFUNCTION  IN 

STARTER  UNIT 

Figure  2.1  Sample  IF  ...THEN  ...  INFERENCE  RULE 
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When  the  current  problem  situation  satisfies  or 
matches  the  IF  part  of  a  rule,  the  action  specified  by  the 
THEN  part  of  the  rule  is  performed.  This  matching  of  rule 
IF  portions  to  the  facts  can  produce  what  are  called  rule 
firings  or  inference  chains 


The  inference  engine  reasons  and  makes  inferences 
based  upon  the  application  of  rules  and  facts 
contained  in  the  knowledge  base.  It 
accomplishes  this  through  a  control  structure. 
There  are  many  control  structures  implemented  in 
current  rule-based  expert  systems. 

One  is  known  as  backward  chaining  or 
goal-directed  reasoning.  This  structure  begins 
with  the  selection  of  a  specific  goal  and  then 
searches  the  rules  to  find  those  whose  concequent 
actions  can  achieve  that  goal.  Backward  chaining 
is  often  a  good  control  structure  when  there  are 
more  facts  than  final  conclusions  (goals).  [Ref. 


Often,  rule-based  systems  work  from  just  a  few 
facts  but  are  capable  of  reaching  many  possible 
conclusions  [Ref.  5].  For  that  reason,  it  makes 
more  sense  to  match  the  rules  to  the  state  or 
the  condition  of  facts  and  continually  apply 
those  rules  to  new  states  until  the  desired  goal 
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is  attained.  This  control  structure  is  known,  as 
forward  chaining  or  data-directed  computation 
Different  control  structure  ideas  can  be  combined 
in  hybrid  control  structures.  Hybrids  of 
forward  and  backward  chaining,  compromising  on 
the  advantages  and  disadvantages  of  both,  are 
often  used.  The  most  common  is  the  rule-cycle- 
hybrid  control  structure  because  it  is  easy  to 
implement.  With  rule-cycle-hybrid ,  rules  are 
tried  in  order  as  with  backward  chaining,  but 
each  rule  is  used  in  a  forward-chaining  way  to 
assert  new  facts.'1  [Ref.  5] 


A  knowledge  base  contains  facts,  assertions,  and 
rules.  Some  of  the  facts  are  short-term  informa¬ 
tion  that  can  change  rapidly  during  the  course  of 
a  consultation.  Facts  in  a  data  base  are  normal¬ 
ly  passive;  they  are  either  there  or  not  there. 
A  knowledge  base,  on  the  other  hand,  actively 
tries  to  fill  in  the  missing  information 

[Ref.  4]. 


Whatever  the  style  of  expert  systems,  they 
assume  that  information  is  provided  manually 
through  a  question  asking/answering  dialogue,  or 
automatically  by  means  of  sensors  or  other 
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devices.  The  interface  is  that  part  of  the 
expert  system  which  controls  communication  with 
the  user. 


B.  SUMMARY  OF  CURRENT  KNOWLEDGE  IN  DIAGNOSIS 


"In  the  theory  and  design  of  diagnostic  reasoning 
systems,  there  appear  to  be  two  quite  different  approaches 
in  the  literature.  In  the  first  approach,  often  referred  to 
as  diagnosis  from  first  principles,  one  begins  with  a 
description  of  some  system  with  an  observation  of  the 
system’s  behavior.  If  this  observation  conflicts  with  the 
way  the  system  is  meant  to  behave,  one  is  confronted  with  a 
diagnostic  problem,  namely,  to  determine  those  system 
components  which,  when  assumed  to  be  functioning  abnormally, 
will  explain  the  discrepancy  between  the  observed  and 
correct  system  behavior.  For  solving  this  diagnostic 
problem  from  first  principles,  the  only  available 
information  is  the  system  description,  i.e.,  its  design  or 
structure,  together  with  the  observation  of  the  system 
behavior.  In  particular,  no  heuristic  information  about 
system  failures  is  available,  for  example,  of  the  kind  when 
the  system  exhibits  such  and  such  aberrant  behavior,  then  in 
90  percent  of  these  cases,  such  and  such  components  have 


failed. 


[Ref.  6]  An  example  is  electronic  equipment 


troubleshooting. 
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"Under  the  second  approach  to  diagnostic  reasoning, 
which  might  be  described  as  the  experiential  approach, 


heuristic  information  plays  a  dominant  role.  The 
corresponding  diagnostic  reasoning  systems  attempt  to  codify 
the  rules  of  thumb,  statistical  intuitions,  and  past 
experience  of  human  diagnosticians  considered  experts  in 
some  particular  task  domain.  The  structure  or  design  of  the 
corresponding  real-world  system  being  diagnosed  is  only 
weakly  represented,  if  at  all.  Successful  diagnosis  stem 
from  the  codified  experience  of  the  human  expert  being 
modeled,  rather  than  from  what  is  often  referred  to  as  deep 
knowledge  of  the  system  being  diagnosed."  [Ref.  6]  A 
notable  example  is  the  MYCIN  system. 

2.  T hs  SqhavjQr  <?f  the  Diagnostic  Reasoning  Task 

Engineers  and  scientists  constantly  strive  to 
understand  the  differences  between  physical  systems  and 
their  models.  Engineers  troubleshoot  mechanical  systems  or 
electrical  circuits  to  find  broken  parts.  Many  everyday 
common-sense  reasoning  tasks  involve  finding  the  difference 
between  models  and  reality."  [Ref.  7] 

Diagnostic  reasoning  requires  a  means  of  assigning 
credit  or  blame  to  parts  of  the  model  based  on  observed 
behavioral  discrepancies.  If  the  task  is  troubleshooting 
then  the  model  is  presumed  to  be  correct  and  all  model 
system  differences  indicate  part  malfunctions,  as  shown  in 
Figure  2.2.  [Ref.  7] 


MODEL 

STRUCTURAL 

SYSTEM 

DISCREPANCY 

i  \ 

PREDICTED 

BEHAVIORAL 

* 

OBSERVED 

BEHAVIOR  - 

- •>  DISCREPANCY  - 

— >  BEHAVIOR 

Figure  2.2  Model-System  Difference 

Usually,  the  initial  evidence  does  not  imply  a 
unique  explanation.  Then  the  diagnosis  requires  two  phases. 
The  first,  mentioned  above,  identifies  the  set  of  possible 
model-system  differences.  The  second  proposes  evidence¬ 
gathering  tests  to  refine  the  set  of  possible  model -sytem 
differences  until  they  accurately  reflect  the  actual 
differences.  [Ref.  7] 

'When  these  theoretical  principles  are  applied  in 
practice,  it  is  important  to  note  that  experts  seldom  solve 
problems  using  a  rigorous  theoretical  analysis;  rather, 
their  understanding  has  a  more  ad  hoc  character.  Some 
excellent  troubleshooting  technicians,  for  instance,  use 
very  little  theory.  Yet,  by  using  their  own  simpler 
conceptual  models,  they  can  troubleshoot  a  faulty  device 
quite  efficiently."  [Ref.  8] 

The  thought  process  of  a  typical  human  expert  for  an 
engine  under  diagnosis  is; 


a.  Observe  the  behavioral  discrepancies. 

b.  Identify  the  subsections  of  the  engine  system 
which  may  explain  the  behavioral  discrepancies, 
using  the  structural  definitions  of  system 
model . 

c.  Starting  from  the  most  problem-related 

subsection,  search  a  known  fault  data  base  within 
that  subsection,  to  figure  out  the  relevant 
faults  using  heuristic  information. 

d.  Find  a  method  supported  by  procedural  information 
to  test  and  prune  the  possible  faults. 

3.  Concept  of  the  Diagnosis  of  Vehicle  Malfunctions 

The  familiar  example  of  a  car  engine  system  is 
chosen  as  a  model  for  the  implementation  of  a  small-scale 
system  which  will  diagnose  vehicle  malfunctions. 

To  gather  information  pertaining  to  procedural 
knowledge  from  sources  and  convert  them  into  facts  and  rules 
format,  it  is  essential  to  study  car  repair  guides  which  are 
a  good  source  of  information  for  how  knowledge  should  be 
represented.  An  engine  system  is  composed  of  five  major 
subsections  [Refs.  9,  10]: 

1.  Battery  section. 

2.  Cranking/Starter  section. 

3.  Ignition  section. 


4.  Fuel  section. 


And  engine  malfunctions  can  be  separated  into  two 


general  groups: 

1 .  Engine  will  not 


i 

t 


start . 


2.  Engine  performs  poorly. 

A  common  approach  in  the  troubleshooting  sections  of 
car  repair  guides  is  to  use  charts  of  the  most  common 
symptoms  of  engine  malfunctions.  For  each  symptom,  relevant 
subsystems  of  the  engine  system  are  indexed  as  in  Figure 
2.3. 


PROBLEM:  SYMPTOM 

Engine  Will  Not  Start 


) 

\ 


BEGIN  AT  SPECIFIC  SUBSYSTEM 


Starter  does  not  turn 
Starter  turns,  engine 
doesn’t 

Starter  turns  engine 
very  slowly 
Engine  fires 
intermittently 

Engine  Performs  Poorly 

Hard  Starting 
Rough  idle 

Backfire  through  the 
carburetor 

Backfire  through  the 
exhaust 

Blue  exhaust  gases 
Black  exhaust  gases 


Battery,  Starter 
Starter 

Battery,  Starter 


Ignition  | 

I 

i 

l 

I 


Ignition,  Fuel 
Ignition,  Fuel 
Fuel,  Ignition, 
Compression 
Fuel,  Ignition, 
Compression 
Compression 
Fuel 


Figure  2.3  Index  to  Problems 


The  user  is  expected  to  proceed  to  an  indexed 
subsystem.  Sections  are  arranged  so  that  following  each 
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test,  instructions  are  given  to  proceed  to  another,  until  a 
problem  is  diagnosed.  For  instance,  in  the  sample  for 
ignition  section  shown  in  Figure  2.4: 


TEST  AND 
PROCEDURE 

4 . 1  Check  for  spark 
Hold  each  spark 
plug  wire  approx¬ 
imately  1/4"  from 
ground  with  gloves 
or  a  heavy,  dry 
rag.  Crank  the 
engine  and  observe 
the  spark.  __ _ 


RESULTS  AND  PROCEED 

INDICATIONS  TO 

->  If  no  spark  is  evident  4.2 

■>  If  spark  is  good  in  4.3 

some  cases 

■>  If  spark  is  good  all  4.6 


Figure  2.4  Sample  Section 


This  type  of  approach  shows  a  decision  lattice 
representation,  a  strictly  procedural  nature.  However, 
decision  lattices  are  better  for  troubleshooting  manuals 
than  for  computers.  Despite  some  of  the  benefits  of 

decision  lattices  in  terms  of  ease  of  implementation  and  the 
minimal  numbers  of  questions  necessary  to  establish 
conclusions,  they  shouldn’t  be  considered  as  general 
structure  for  an  expert  system  due  to  some  of  the  following 
disadvantages  as  stated  by  Rowe  [Ref.  5]; 

1.  They  can’t  always  reason  efficiently. 

2.  They  are  difficult  to  modify. 

3.  They  may  be  difficult  to  design,  since  at  each 
point  we  have  to  determine  the  best  question  to 
ask . 


\  A'N  >  * .  A  AAA  A  A  A  AA.'AA 
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Also,  a  human  expert  searching  a  known  fault  set  for 
that  subsystem  uses  heuristic  information,  and  then  tests 


3 

I 

K 

*•£ 

1*4 

*4 

it 


a 


s 

I 

i 

nyl 

i|Z| 


and  prunes  until  some  is  found,  not  a  procedural  method. 
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This  chapter  describes  what  techniques  were  used  to 
construct  the  expert  system  and  why  this  particular 
implementation  was  chosen. 

A.  PROGRAMMING  LANGUAGE 

The  computer  programming  language  Prolog  is  quickly 
gaining  popularity  throughout  the  world,  in  artificial 
intelligence  applications.  Prolog  is  like  logic  in  that  it 
can  infer  solutions  to  problems.  Prolog’s  ability  to  infer 
solutions  to  problems  changes  the  way  in  which  programmers 
work. 

"Prolog  has  three  positive  features  that  give  it  key 
advantages  over  conventional  programming  languages.  First, 
Prolog  in  syntax  and  semantics  is  so  close  to  formal  logic 
that  programs  are  better  understood  and  better  maintained. 
Second,  Prolog  provides  automatic  backtracking,  a  feature 
that  simplifies  searching  alternatives.  Third,  Prolog 
allows  a  procedure  definition  to  be  used  for  many  different 
kinds  of  reasoning."  [Ref.  5] 

The  availability  of  a  Prolog  programming  tool  for  the 
IBM  XT  was  a  very  important  factor  in  this  implementation. 
The  design  was  implemented  with  the  Arity/Prolog  interpreter 


which  is  a  product  of  Arity  Corporation,  designed  to  be  a 
powerful,  highly  optimized,  and  extended  version  of  Prolog. 


B .  APPROACH 

What  is  expected  from  an  expert  system  is  to  follow  the 
thought  process  of  a  typical  human  expert.  As  expressed 
earlier,  the  design  guidelines  could  be  based  on  either 
moving  from  the  first  principles  or  applying  the 
experiential  approach.  Moving  from  the  first  principles 
which  would  require  cumbersome  techniques  to  simulate  the 
complex  nature  of  engine  system,  and  so  is  unapplicable . 
Since  both  a  wide  variety  of  general-purpose  car 
repair/diagnosis  books  and  the  past  technical  experience  of 
the  designer  in  engine  maintenance  field  are  available,  the 
experiential  approach  was  chosen. 

We  next  evaluated  the  quality  of  information  available 
in  repair  books  and  converted  it  into  the  more-convenient 
rules  and  facts  format.  The  design  stages  were  decomposed 
in  the  order  of  thought  processes  of  a  typical  human  expert. 
The  first  thing  to  do  was  to  introduce  into  the  computer  the 
observed  behavioral  discrepancies  in  some  way.  A 
troubleshooting  chart  which  collected  the  most  common 
symptoms  under  two  general  fault  cases  was  mapped  to 
computer  so  that  when  the  program  is  executed,  it  gives  a 
menu  asking  for  the  case,  gets  symptoms  from  the  user,  and 


caches  them. 


Once  the  symptoms  are  gathered  interactively,  the 
diagnostic  reasoning  process  should  start.  For  instance, 
suppose  that  a  car  engine  will  not  start.  There  are 
numerous  reasons  that  an  engine  will  not  start,  from  an 
electrical  failure  to  a  faulty  fuel  system.  For  that 
reason,  the  second  step  as  followed  by  botn  a  typical  human 
expert  and  the  troubleshooting  charts  is  to  identify  the 
subsystems  which  may  explain  the  behavior  and  sort  them  in  a 
reasonable  order.  This  was  carried  out  by  defining  an 
embedded  table  of  pairs.  each  illustrating  subsystems  for 
each  symptom. 

For  the  third  stage  of  the  system-developing  phase, 
following  the  procedural  nature  of  troubleshooting  charts 
was  not  appropriate  as  discussed  in  Chapter  II.  It  was  at 
this  point  that  a  human  expert  and  troubleshooting  charts 
differ  from  each  other.  Starting  from  the  most  problem- 
related  subsystem,  we  needed  to  search  a  known  fault 
database  for  that  subsystem  to  find  out  faults  which  could 
account  for  the  same  behavioral  discrepancies.  At  this 
point  we  needed  a  partitioned  control  structure.  Technical 
and  heuristic  information  of  the  engine  system  was  divided 
into  separate  files  containing  rules  and  facts  so  that  each 
group  would  have  minimal  interactions  with  other  groups. 
One  more  partition  was  needed  to  hold  the  global  data  and 
general  control  structures. 


Some  subsections  showed  different  implementation 
problems  than  others.  For  instance,  due  to  the  serializable 
nature  of  defects  in  the  battery  section,  each  would  show 
the  same  symptoms;  an  exhaustive  search  mechanism  was  used 
to  test  them  in  a  reasonable  order.  On  the  other  hand,  a 
ruie-cycle-hybrid  control  structure  was  used  for  the 
ignition  system  to  test  hypotheses . 

Since  faults  within  each  subsystem  were  unique  to  it, 
fault  lists  were  used,  as  for  instance: 

list_of_expected_diagnosis  (battery,  [case_cracked, 

case_intact,  discharged_battery] ) . 

list_of_expected_diagnosis  ( battery _cable_connect ions , 
[open_circuit ,  bad_cable_connections] ) . 

Testing  a  hypothetical  or  actual  defect  is  the  same. 
The  human  expert  must  find  a  method  which  will  reveal 
whether  it  exists  or  not.  for  that  reason,  we  have  a  list 
of  some  recommended  methods  gathered  iiom  repair  books,  for 
each  defect  under  consideration,  as  in  the  following: 

recommended  ( [visual_inspection,  high_beam,  voltmeter], 
battery ,  di scharged_batt ery ) . 

recommended ( [visual_inspection, voltmeter] , 
battery _cable_connections ,  open_circuit ) . 

Since  we  do  not  assign  partial  certainly  to  how  precise  a 
method  is,  our  expert  system  attempts  each  method  in  turn. 

There  are  a  couple  of  comments  that  we  would  like  to 
emphasize.  As  could  be  noticed  in  the  above  format,  the 


same  equipment  can  be  used  to  verify  more  than  one  defect, 


a 


ft 


but  this  is  rare.  That  suggests  unique  definition  and 
treatment  for  each  operator.  And  each  operator  under 
consideration  passes  through  the  three  unique  steps: 

1.  Satisfy  Operator  Preconditions:  For  each  operator, 
a  precondition  list  is  formed,  such  that  an 
operator  would  be  applied  only  after  achieving 
each  member  of  precondition  list.  This  means: 

-  To  check  if  an  operator  is  available. 

-  If  an  operator  is  available,  to  check 
if  the  user  is  capable  of  using  this 
operator . 

-  So  as  to  avoid  wrong  conclusions,  to 
check  what  other  system  components 
should  be  okay  before  applying  the 
operator,  taking  into  consideration  the 
way  the  operator  will  be  applied  and  the 
expected  measurement . 

-  And  finally,  to  give  precedence  to 


system 


components 


which 


preconditions  of  other  components ,  to 
avoid  unnecessary  user  dialogue. 

Some  example  preconditions: 


AV.  AA  AA 


preconditions  ( visual_inspecton , battery _cable_ 

connections,  open_circuit, [  ]). 

preconditions  ( voltmeter , battery_cable_ 

connections,  bad_cable_connections ,  [not 

(defective  (battery)),  not(electrical_circuit_ 
problem),  not  ( unable_to_use  (voltmeter))]). 

2.  Procedure  Test :  Once  the  preconditions 
for  an  operator  in  use  are  accomplished, 
the  specific  procedure  or  method  is 
diplayed . 

3.  Verify  Diagnosis:  A  specific 

measurement  is  gathered  from  the  user,  a 
measurement  that  should  be  consistent 
with  the  data  previously  displayed. 

In  testing  and  pruning  the  possible  defects,  the 
diagnostic  reasoning  process  will  come  to  an  end  if  some  are 
found.  Then  the  program  displays  verified  diagnostic 
results,  ordered  by  the  number  of  methods  used  to  prove 
them . 

C .  KNOWLEDGE  BASE 

As  stated  earlier,  the  knowledge  base  of  our  expert 
system  is  composed  of  partitions,  each  similar  in  structure. 
This  enables  us  to  maintain,  update  and  debug  easily  only 


the  necessary  partitions. 


Procedural  knowledge  and  heuristic  knowledge  are  the 


two  types  of  information  forming  the  knowledge  base.  As 
discussed  before,  there  was  an  inadequate  amount  of 
heuristic  information  in  the  repair  book  in  the  BATTERY  and 
STARTING  sections,  so  the  partitions  of  those  subsystems 
were  only  procedural  knowledge,  whereas  the  IGNITION  system 
is  composed  of  both  types  of  information. 


D.  INFERENCE  PROCEDURE 

Two  different  inference  engines  were  applied  in 

implementation.  The  procedure  designated  as  inference- 
engine  1  in  the  GLOBAL  file  does  an  exhaustive  search  to 
test  each  defect  in  currently  active  knowledge  base. 

For  those  partitions  which  are  going  to  be  driven  by 
the  exhaustive  search  mechanism,  ordering  the  faults  to  be 
tested  is  important,  for  two  reasons: 

1.  It  is  a  good  idea  to  assign  high  priority  to 

testing  defects  which  are  thought  to  be  most 

likely. 

2.  It  is  good  to  test  preconditions  of  an  operator 

before  testing  this  operator.  Otherwise,  the 
expert  system  will  be  unfocussed  among  components 
to  be  verified. 


The  second  procedure  is  designated  as  inference-engine 
2  in  the  GLOBAL  file.  The  rule-cycle-hybrid  control 
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structure  written,  in  Prolog,  by  Rowe  [Ref.  5]  is  variant 
version  of  this  procedure.  Once  hypotheses  are  gathered, 
inference-engine  2  activates  a  procedure  which  will  test 
each  hypothesis  systemat ical ly . 

A  sample  rule  written  in  a  format  recognizable  by  the 
rule-cycle-hybrid  (from  IGNITION  knowledge  base)  is: 
hr:  -  not  (hypothesis  (incorrect  (distributor_f iring_ 

sequence ) ) ) , 
fact  (hard.starting) , 

fact  (backf ire_through_the_carburetor ) , 
askif  ( recent _operator_ job ) , 

asserta  (hypothesis  (incorrect  (distributor_f iring 
.sequence ) ) ) . 

The  rule  order  for  rules  governed  by  the  rule-cycle- 
hybrid  is  important.  A  rule  is  given  precedence  in  database 
order  over  the  rules  whose  right  sides  mention  a  predicate 
to  be  asserted  by  it. 

E.  USER  INTERFACE 

Three  modules  are  required  to  support  our  user 
interface.  The  first  procedure  ask-which  in  the  GLOBAL  file 
was  written  originally  by  Rowe  [Ref.  5]  but  was  adapted. 
The  procedure  ask-which  gathers  symptoms ,  behavioral 
discrepancies  observed  by  user.  When  it  is  invoked,  it 
gives  a  menu,  four  questions  at  a  time,  and  asks  which 
questions  should  be  answered  yes.  After  getting  the 
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answers 


the  invoking  procedure  checks  for  contradictory- 


answers,  consulting  a  table  of  contradictory  sets.  If  there 
is  some  contradiction,  the  user  is  warned.  When  all  done 
with  input,  the  symptoms  gathered  are  added  to  current 
database  by  the  asserta  built-in  predicate. 

The  second  predicate  askif  of  one  argument  was  written 
originally  by  Rowe  [Ref.  5]  but,  was  adapted  again  with  some 
minor  modifications.  This  procedure  gets  virtual  facts 
(facts  demanded  only  when  needed).  The  user  is  prompted  by 
some  question  and  is  expected  to  answer  either  affirmatively 
or  negatively.  Otherwise  it  complains  and  asks  for  a 
reasonable  answer.  Also  the  answer  is  cached,  so  as  to  not 
ask  the  same  question  again. 

The  third  procedure  is  code-interpreter.  This 
procedure  displays  the  text  of  information  related  to  a 
method  to  be  followed  by  user  to  achieve  a  measurement.  If 
the  user  is  not  satisfied  with  the  information  supplied,  it 
gives  the  user  further  explanation,  if  available. 

F.  MODULES 

Our  expert  system  is  made  up  of  partitioned  knowledge 
bases.  While  the  knowledge  bases  for  BATTERY,  STARTER  and 
IGNITION  sections  are  fully  implemented,  each  under  the  same 
filename  as  their  section  names,  the  knowledge  bases  for 
FUEL  and  COMPRESSION  sections  were  not  implemented  due  to 
time  constraints.  But  to  show  the  features  and  capability 


of  a  vehicle  diagnosis  expert  system,  those  unimplemented 
knowledge  bases  are  suggested  in  the  ENGINE  partition  for 
one  particular  fault  case. 

The  partitioned  knowledge  bases  are  necessary  not  only 
for  ease  of  maintenance  and  debugging,  but  also  to  support 
different  control  structures  for  each.  For  that  reason, 
rather  than  using  the  consult  built-in  predicate,  a 
reconsult  predicate  (which  replaces  the  predicates  currently 
in  database  with  new  ones)  is  always  used. 

One  interesting  and  powerful  feature  of  our  expert 
system  occurs  when  the  rules  belonging  to  current  partition 
need  to  access  momentarily  some  other  partition  for  specific 
information  about  some  component.  Then  the  current  process 
state  is  saved  by  the  save  built-in  predicate,  and  the 
information  referring  to  the  current  process  state  is  pushed 
onto  a  process  stack,  and  the  new  partition  is  brought  in  by 


IV.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

Arity/Prolog  appears  suitable  for  this  implementation, 
and  the  rich  built-in  predicates  available  were  helpful. 
However,  the  deficiency  of  error-checking  mechanisms  against 
minor  misspellings  leads  to  bizarre  unintended  effects. 

The  reasoning  process  in  repair  manuals  which  is  not 
suitable  for  computers  was  effectively  converted  into  a 
rule-based  model  so  that  the  thought  process  of  a  typical 
human  expert  was  efficiently  simulated.  So  a  fully 
implemented  diagnostic  expert  system  could  be  used  in  place 
of  a  human  expert. 

B.  RECOMMENDATIONS 

As  is  clear  from  this  thesis,  a  full  implementation  of 
our  system  is  quite  possible.  A  better  diagnostic  expert 
system  could  support  a  user  by  graphic  enhancements.  The 
location  of  a  component,  the  necessary  steps  to  access  the 
component,  and  some  specific  procedures  to  make  a 
measurement  could  be  displayed  to  an  unexperienced  mechanic 
graphically. 

An  expert  system  should  be  able  to  explain  its 


reasoning  path  for  teaching  and  debugging  purposes, 
could  enhance  our  expert  system  with  that  feature. 


We 


APPENDIX  A 


SOURCE  CODE 

This  appendix  contains  a  listing  of  the  main  program  (held  in  the 
GLOBAL.  BATTERY.  STARTER.  IGNITION,  and  ENGINE  section  files 
which  contain  the  knowledge  base  of  the  expert  system). 

This  expert  system  implementation  was  written  in  the  version  of 
the  PROLOG  language  known  as  ARITY -PRO LOG  (which  is  a  product  of 
Arity  Corporation)  and  runs  under  the  MS-DOS  operating  system  on 
IBM  PC/XT  clones.  This  version  of  PROLOG  is  closely  based  on 
standards  as  described  in  Clocksin  and  Mellish  [Ref.  L  -). 

Having  entered  the  PROLOG,  the  program  comes  up  with  a  short 
message  about  start-up  and  then  the  user  starts  the  consultation  with 
the  query  of  “diagnosis."  The  lines  that  are  limited  with  “/*"  are 
comment  lines.  They  should  not  be  confused  with  actual  PROLOG 
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%THE  FOLLOWING  CONTAINS  THE  CONTENTS  OF  GLOBAL  FILE. 

/••••MAIN  PROGRAM**** 

:-  cls.nl.nl.nl. 

write{$  VEHICLE  DIAGNOSIS  EXPERT  SYSTEM  IMPLEMENTATION  &), 
nl, 

write{$  Please  enter  "diagnosis"  to  start  the  consultation.  &). 
nl.nl.nl. 

/* 

The  predicate  “DIAGNOSIS”  Is  the  top  level  predicate  to  start  the  expert  system. 


diagnosis  procedure_llst  (LIST).  run_diagnosls(LIST). 
flndall  (X.proved(diagnosis(X,Y)).L). 
diagnosis  likelihood  llst(L.LM.LL), 
wrlte($  MOST  LIKELY  DIAGNOSIS  UST  :  $).nl.nl. 
write_list(LM).write($  LESS  LIKELY  DIAGNOSIS  UST 
nl.nl,wrlte_list(LL). 


Having  been  supplied  by  the  symptoms,  by  means  of  early  dialogue  with  consultor. 
the  problem  state  is  identified  and  relevant  subsections  of  the  engine  system  of  the 
vehicle  to  be  considered  are  held  within  a  list,  which  is  the  argument  of  predicate 
“PROCEDURE -UST"  in  a  reasonable  order.  At  this  point,  the  general  expert 
approach  is  to  search  those  sections  one  by  one  in  the  order  they  were  thought  to  be 
reasonable,  until  some  specific  diagnostics  are  found. 

r 

run_dlagnosls(UST)  :•  proved(diagnosls(Dlagnosls. Equipment)). 
run.dlagnosisUl)  - 

run_diangosls(  [Section  I  Sections])  :  - 

file_table(Section.  Sectlon.FUe) . 

wrlte($***  $), write! Section  File), 

wrlte($  SECTION  •**$).nl.nl 

reconsult(Sectlon_Flle), 

restore_database(Sectlon_File) 

sec  tion_englne_t  able(  Section ,  I  nference.Englne) . 

call_englne(Inference_Engine) . 

run.dlagnosis(Sectlons). 

run_dlagnosis([Sectlon:SectlonsJ) 

not(file_table(Section.Section_File)). 
write($***  $).wrlte(Sectlon). 
write!  has  not  been  Implemented  yet.  •••$), 
nl.  run_dlagnosls(Sections) . 

call_englne(Inference_Englne)  :*  call(Inference_Englne). 

call_englne(Inference_Englne). 

r 

The  predicate  “PROCEDURE-UST"  initiates  the  communication  with  consultor. 
using  menu-driven  interaction  method,  at  the  very  early  program  stage,  to  obtain 
the  symptoms  to  create  existing  facts  and  assess  subsections  of  engine  system  to  be 
considered  related  to  problem  state. 


vva: 


procedure_list(LIST)  start_up_menu{Answer_List). 

create_facts(Answer_List) , 
list_finder(Answer_Llst  .L).sort(L.Ll), 
!,llst_converter(Ll  .LIST). 


start_up_mcnu(Answer_Llst)  repeat. 

[!ask_which([engine_wont_start. 
engine_runs_poorlyl,List!]. 
not(contradlctlon(Llst) ) . 
create_facts(Llst) . ! . 
su  b_menu  ( List  Answer_List) . 

sub_menu(List.Answer_List)  member(englne_wont_start. List). repeat. 

I!ask_whlch([starter_doesnt_tum_at_all. 

starter_tums_but_not_the_englne. 

slow_cranking.normal_cranklng.qulck_cranking. 

englne_fires_lntermlttently, 

englne_flres_conslstently),Answer_List)!], 

not(contradlctlon(Answer_Llst)). 

sub_menu(Llstj\nswer_Llst)  :-member(englne_runs_poorly. List). repeat,)! 

ask_whlch((hard_startIng,rough_ldle.  stalling. 

englne_dles_at_hlgh_speed. 

hesltatlon_on_acceleratlon. 

poor_plck_up.lack_of_power. 

backfire_through_the_carburator. 

backflre_through_the_exhaust. 

blue_exhaust_gases,black_exhause_gases, 

runnlng_on,susceptible_to_moisture. 

mlsflre_under_load .  engine_mlss_at_high_rpm , 

misfire_at_idle_speedl . 

Answer_Llst) !  I ,  not  (contradlctlon(Answer.Llst)) . 


ask_whlch([A,B,C.D  I  LI. List) 

screen_ask_whlch({A.B.C.Dl.[A,B.C.Dl.Lst). 
ask_which(L.Intllst).append(Lst. Inti  1st. List). 

ask_whlch((].[)). 

ask_whlch(L,List)  length(L,N).N<4.N>0. 

screen_ask_whlch(L.L.Llst). 

screen_ask_whlch((XIL).L2,Lst)  length(L.N),length(L2,N2). 

N3  is  N2-N,wrlte(N3),wrlte(':,).questloncode(X.Q).wiite(Q). 

write) '?') .  nl.  screen_ask_whlch(L.L2 .  Lst) . 

screen_ask_whlch(().L2,Lst) 

wrlte($  Give  numbers  of  questions  whose  answer  is  yes.$). 
read(AL) .  nl .  create_llst(AL,  L2 ,  Lst ) . 

create_llst([).L2.()). 

create_list((N I  L],L2.(I  I L3])  ltem(N.L2.I). 

create  llst(L.L2.L3). 

create.llstdN  I  L].L2.L3)  not(ltem(N.L2.I)). 

create_llst(L,L2.L3). 


item(l,[XI  L|.X). 

ltem(N,lXIL],I)  N>1.N2  Is  N-l.item  (N2.L.I). 


contradictlon(Llst)  length(Llst,N).N>l. 

contradlctory_llst(X.L). 

(!member(X, List)!], not(llst._done([Xl,  List. L)), 
message. 


llst_done(A.B,[]). 

list_done(A,B.[C  I D])  unlon(A.(C].E).!.not(subset(E.B)). 

llst_done(A,  B ,  D) . 


create_facts((l)  !. 
create_facts(Fact  I  Answer_List]) 

asserta(fact(Fact))  ,crate_facts(Answer_Llst) . 


llst_flnder([XILl].L)  check_llst(X.List),list_flnder(Ll.L2). 

unlon(List.L2,L). 

list_flnder(ll.H). 

Ust_converter(Il ,  ]]) . 

llst_convertert[XIL|.[YILl])  convert (X.Y), 

llst_converter(L,L  1 ) . 


r 

The  complicated  nature  and  peculiarities  of  subsections  of  the  engine  system 
necessitate  more  than  one  inference-engine  to  process  the  defined  subsections. 
INFERENCE-ENGINE  1  simulates  the  role  of  “exhaustive-search-mechanism"  for 
the  section  it  was  allowed  to  process. 

r 


lnference.englne  1  not(all_done). 
all_done 

Ust_of_expected_dlagnosis(Part,Expected_Dlagnosis_List). 

attempt_to_verlfy_all(Part,Expected_Dlagnosis_List).fail. 

attempt_to_verlfy_all(Part,  (1) . 
attempt_to_verlfy_all{Part. 

(Flrst.Dlagnosls  I  Expected_D lagnosls_List ]) 
verlfy_dlagnosis(Part.Flrst_Diagnosls), 
attempt_to_verlfy_all(Part.Expected_Diagnosls_List). 

verlfy_diagnosls(Part.Flrst_Dlagnosis) 

recommended(Equlpment_List.Part,Flrst_Diagnosis), 
verlfy_uslng_aIl(Equlpment_Llst.Part,First_Dlagnosis). 
verify  _using_all((]. Part. Flrst.Diagnosis). 
verlfy_uslng_all(IFlrst_Equlpment:Equlpment_List].Part. 


First_Diagnosis) 

apply_equlpment(First_Equlpment.Part,Flrst_Diagnosls). 

verlfy_uslng_all(Equipment_List.Part.First_Dlagnosis). 


apply_equipment(First_Equipment.Part.Flrst_Diagnosis) 
precondltlons(Flrst -Equipment. Part. First.Dlagnosls. 

Preconditlon_List) . 

satisfied_preconditlons(Preconditlon_List).find(Part). 
get_ready_equipment(First_Equipment.Part.First_Diagnosis). 
prove_dlagnosls(  First  .Equipment .  Part .  First_Dlagnosis) . 

apply_equipment(Flrst .Equipment. Part. First_Diagnosis)  :- 
precondltlons(Flrst_Equlpment.Part.First_Diagnosls. 

Precondition.List) . 

not(satisfied_precondltions(Preconditlon_Ust)). 

satlsfled_precondltions((]). 

sailsfied_preconditions(|First_Precondition:Preconditlon_Listl) 

:  -  call_preconditlon(First_Precondition). 
satlsfied_preconditions(Precondltion_Llst). 
prove_dlagnosis(Flrst_Equlpment.Part.Flrst_Dlagnosis) 

proved_diagnosls(Flrst_Equlpment. Part,  First.Dlagnosls). 
update_dlagnosls_udtabase(Flrst_Equipment.Flrst_Dlagnosis). 
prove_diagnosis(First_Equlpment,Part,First_Dlagnosis)  :- 

not  ( proved_dlagnosis(  First.Equipment .  Part .  First.D  lagnosls) ) . 
update_dlagnosis_database(Flrst_Equipment.  First  .Diagnosis) 
not(proved(diagnosis(First_Diagnosis.First_Equipment))), 
asserta(proved(diagnosis(First_Diagnosis.Flrst.Equipment))). 
update_dlagnosis_database{Flrst_Equlpment.First_Diagnosls)  : - 
proved(diagnosis(Flrst_Dlagnosis.First_Equipment)). 

r 

The  predicate  “DIAGNOSIS"  of  one  argument  searches  for  the  malfunction  in 
particular,  provided  that  the  name  of  the  malfunction  is  supplied  as  its  argument. 

r 

diagnosls(Diagnosls)  proved(dlagnosls(Dlagnosis.X)). 
dlagnosls(Dalgnosls)  llst_of_expected_dlagnosis(Part. 

Expected.Diagnosis.List) , 
memberlD  lagnosls.  Expected.Diagnosis.List) . 
verify_diagnosis(Part.  Diagnosis),!, 
proved(dlagnosls(Dlagnosls.X)). 

r 

INFERENCE-ENGINE2  simulates  the  role  of  “rule-cycle-hybrid  control 
mechanism*  for  the  section  it  was  allowed  to  process. 

r 

lnference_engine2  hybrid, t.doall.untll. 

done  hypothesls(D lagnosls). 
hybrid  done. 

hybrid  not(one_cycle).flag,abollsh(flag/0), hybrid, 
one  .cycle  :-hr,asserta(flag),fail. 


doall_until  doall,not(hypothesis(Diagnosls)). 


doall  not(alltried). 

alltrled  :-call{test_hypothesls).fail. 


test_hypothesls  :-hypothesls(Dlagnosls). 

(!retract(hypothesis(Diagnosis) ) !) . 
diagnosis!  Diagnosis). 

r 

The  predicate  “DIAGNOSIS-LIKELIHOOD-LIST"  sorts  the  malfunctions  whose 
existence  has  been  proved  by  the  expert  system,  and  assigns  them  likelihoods 
according  to  the  number  of  methods  used  to  locate  them. 

/* 


diagnosis_likellhood-list((].  [],[]). 
dlagnosls_llkellhood_llst(  [XI  .11.1X1). 
dlagnosis_likellhood_Tlst([XI L|,|XI L21.L3) 

membertX.  L)  ,delete(X.L.L  1 ) . 
diagnosis  likellhood_llst(L  1 . L2 , L3) . 
diagnoslsJikellhoodJistUX I  L].L1  ,[X I L2)) 

not(member(X.L)). 
dlagnosls_likellhood_llst(L.Ll  ,L2). 

r 

The  predicate  "ASKIF"  of  one  Input  argument  performs  the  Interaction  between 
expert  system  and  consultor.  It  will  have  only  one  argument,  the  question,  and  it 
will  succeed  if  that  question  is  answered  affirmatively  and  fall  if  the  question  is 
answered  negatively.  If  an  answer  is  unclear.  It  will  complain  and  ask  for  another 
answer. 


asklf(A) 

asklA.B), 

posltive_answer(B) . 

askifnot(A) 

not  asklflA). 


ask(A.B) 

asked(A,B). 

ask(A,B) 

not  asked(A.B). 

(questloncode(A,  C)  ;global_questioncode(A.  C ) . 
wrlte(C), 

wrlte($?  (yes/no)  =>  $), 

read(D), 

nl, 

[!  answertD.B) 

!j. 

not  unexpected_answer1B). 
asserta(asked(A.B)). 


asklA,B) 

not  asked(A.B). 

not  questloncode(A.C).not  global_questloncode(A.C), 
write  (A), 

write  ($?  (yes/no)  =>  $). 

read(D), 

nl, 

(!  answer(D.B) 

!]. 

not  unexpected_answer(B). 
asserta(asked(A,B)). 


answer(A,B) 

not  unexpected_answer(A)t 
B=A 

answer(A.B) 

not  unexpected_answertA), 
repeat. 

write($  Please  answer  yes  or  no  ==>  $). 

read(B), 

nl. 

not  unexpected_answer(B). 

unexpected_answer(A) 
not  affirmative  (A), 
not  negativelA). 

posltlve_answer(A) 

afflrmatlve(AJ. 

r 

The  predicate  “CODE-INTERPRETTER’  provides  the  consultor  with  the  domain 
dependent  information. 


code_lnterpretertA) 

expressedlA). 

codejnterpretertA) 

not  expressedlA), 

code(A,B.C). 

wrlte(B). 

nl. 

asserta(expressedlA)). 
further_explaln(C) . 

further_explain($No  more$) 
further_explaln  (A) 

asklfTneed_explaln) . 
retract(asked(need_explaln.  B)) . 
wrlte(A). 
nl. 

further_explaln(A) 

asklfnot(need_explaln) . 


retract(asked(need_explain,B)) . 


delete(X.l].[]). 

deletetX.(XIL].M) delete(X,L,M) . 
delete(X.[YIL],[YIM|) delete(X,L.M). 

append([|.L.L). 

append(lXI L1],L2,(XI  L3]) append(Ll.L2,L3). 


subset((].A). 

subset(lAIB].C)  member(A.C).subset(B.C) 

membertX.[XILl). 
member(X.[YIL])  membertX.L). 

union([]  JC,X). 

unlon((XIR].Y.Z) member  (X.Y),!,union(R,Y.Z). 
union  ([XIR1.Y.IXIZ]) union(R,Y.Z). 

wiite_llst([])  !. 

write_list([X I Y])  write  (X),nl.write_list(Y). 

first([XILJ.X). 

second((X.Y  I  L],Y). 

r 

The  fact  “CHECK- LIST"  holds  the  list  of  subsections  of  engine  system,  determined 
hypothetically,  concerning  each  specific  symptom. 

r 

check Jist(starter_doesnt_tum_at_all.[  10,201). 
check_list(starter_tums_but_not-the_engine,[20)). 
check_llst(slow_cranking.(  10.20]) . 
check_list(normal_cranking,(30]). 
check_list(quick_cranking.  [50]) . 
check_list(englne_fires_intennlttently,{30]). 
check_list(enginc  _fires_consistently,  (40 . 50]) . 
check_list(hard_starting, 130,40]). 
check_list(rough_ldle .  (30, 401 )  • 
check_llst(stalling,  (30,401) . 
check_list(engine_dies_at_hlgh_speed,(30,40]). 
check_list(hesitation_on_acceleratlon.{30.401). 
check_llst(poor_plck_up ,  (30, 40]) . 
check_lslt(lack_of_power, (30,40]). 
check_list(backflre_through_the_carburator,[30,70]). 
check_list(backflre_through_the_exhaust.[30,70]). 
check_llst(blue-exhaust_gases.  (50. 60]) . 
check_list(black-exhaust_gases.(40]). 
check_list(running_on,(30|). 
check_llst(susceptible_to_moisture.(30]). 
check_list(misflre  .underload .  (30 .60 . 70] ) . 


check_llst(engine_miss_at_hlgh_rpm,(301). 
check_Ust(mlsflre_at_ldle_3peed. (30.40. 601). 

r 

The  fact  ‘CONTRADICTORY—  LIST”  holds  the  list  of  symptoms  for  each  symptom,  to 
establish  that  a  symptom  In  question  is  a  member  of  the  set  of  possible  symptoms. 

r 

contradlctory_llst(engine_wont_start.(englne_runs_poorlyl). 
contradictory  _list(starter_doesnt_tum_at_all. 

(starter_tums_but_not-the_englne.slow_cranking, 
normal_cranklng .  qu  lck_cr  anking , 
englne_flres_lntermlttently. 
engine_fires_consistentlyl). 
contradictory_list(starter_tums_but_not_the_engine. 

lslow_cranklng.normal_cranklng,quick_cranklng. 

engnie_fires_lntermlttently. 

engine_fires_consisstentlyl). 

contradlctory_llst(slow_cranking.  [normal_cranklng.qu  ick_cranking] ) . 
contradictory_list(normal_cranklng.(quick_cranking)). 

contradictory_llst(engine_flres_lntermlttently. 

(engine_flres_consistentlyl). 

contradictory_list(blue_exhaust_gases,[black_exhaust_gases)). 

convert!  lO.battery). 
convert(20.starting_system) . 
convert(30.1gnition_system) . 
convert(40,fuel  system), 
convert!  50,  engine_compression) . 
convert(60.englne_vacuum). 
convert(70.valve-traln). 


flnd(sub_dlagnosls) . 
find(complete_system). 
find(lgnition_switch). 
fmd(Part)  asklf!where(Part).!. 

flnd(Part)  code_lnterpreter(Part).retract(asked(where(Part). 

X)).assert(asked(where(Part).yes)). 

unable_to_use(X)  asklfhot(has(X)). 
unable_to_use(X)  asklfnot(how_to_use(X.known)). 


afflrmatlve(yes). 
afflrmatlvey(y). 
afflrmatlve(rlght) . 
affirmatlve(okay) . 

negatlve(no). 

negatlve(n). 

negative(not). 
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negative(never). 
negative!  impossible) . 


global_questloncode(need_explain. 
global_questloncode(hear(X),X)  :- 
global_questloncode(has(X) ,X)  :- 


$Do  you  need  further  explanations). 
write($Did  you  hear  a  sound  like  a  $). 

write($  Do  you  have  a  $). 


global_questloncode(how_to_use(X. Y)  X) 

wrlte($  Do  you  know  how  to  use  a  $). 

global_questloncode(where(Part) .  $$) 

write($Do  you  know  where  the  $).wrlte(Part),wiite($  ls$). 
questloncode(englne_wont_start.$  Does  the  engine  start  at  all$). 
questioncode(engine_runs_poorly,$  Does  the  engine  run  poorlyS). 
questloncode(starter_doesnt_tum_at_all. 

$  Does  starter  turn  at  all$). 
questloncode(starter_tums_but_not_the_englne. 

$  Does  starter  turn,  but  not  the  englneS). 

questloncode(slow_cranklng. 

$  Does  starter  turn  engine  very  slowlyS). 
questloncode(normal_cranklng.$  Does  starter  turn  engine  normallyS). 
questloncode(qulck_cranklng.S  Does  starter  turn  engine  very  quicklyS). 
questloncode(engine_flres_lntermittently, 

$  Does  engine  fire  intermittentlyS) . 
questloncode(englne_fires_conslstently. 

$  Does  engine  fire  consistentlyS). 

questloncode(hard_startlng,$  Do  you  have  hard  starting  problems). 
questioncode(rough_ldle.S  Do  you  have  a  rough  ldleS). 
questlocodefstalhng.S  Do  you  have  stalllngS). 
questloncode(engine_dles_at_hlgh_speed. 

$  Does  engine  die  at  high  speedS). 
questloncode(hesitation_on_acceleratlon, 

S  Do  you  have  hesitation  (on  accelaratlon 
from  standing  stop)$). 

questloncode(poor _plck_up,S  Do  you  have  poor  plckupS). 
questloncode(lack_of_power.$  Do  you  have  lack  of  powerS). 
questloncode(backflre_through_the_carburator. 

S  Do  you  have  backfire  through  the  carburatorS). 
questloncode(backflre_through_the  exhaust. 

$  Do  you  have  backfire  through  the  exhaustS). 
questloncode(blue_exhaust_gases,S  Do  you  have  blue  exhaust  gasesS). 
questioncode(black_exhause_gases,S  Do  you  have  black  exhaust  gasesS). 
questloncode(runnlng_on,$  Do  you  have  running  on  (  after  the  Ignition 

Is  shut  offiS). 

questloncode(susceptlble_to_molsture,$  Is  It  susceptible  to  molstureS). 
questlncode(mlsflre_under_load.S  Does  the  engine  misfire  under  loadS). 
questloncode(englne_mlss_at_hlgh_rpm, 

S  Does  the  engine  misfire  at  speedS). 
questioncode(mlsflre_at_idle_speed. 

$  Does  the  engine  misfire  at  idle  speedS). 


1 


message  wrlte($I  found  a  contradiction!^  ,nl, 
wrlte($  Check  and  repeat  your  answer.$), 
nl. 


Since  rule  and  fact  partitioning  were  chosen  to  be  design  guidelines  for  the 
knowledge  base  of  the  expert  system,  the  table  “FILE-TABLE*  holds  the  file  name  of 
each  partition  to  be  accessed  by  “RECONSULT"  system  predicate  of  one  argument. 


file_table(battery  .battery) . 
file_table(starting_system.  starter) . 
flle_table(lgnltlon_system, ignition). 
file_table(engine_compression.  engine). 


The  table  “SECTION-ENGINE-TABLE'  holds  the  name  of  specific  inference-engine 
to  process  the  partition  in  question. 


sectlon_engine_table(battery.inference_englnel). 
section_englne_table{starting_system .  lnference.engine  1 ) . 
sectlon_engine_table(lgnltion_system.inference_englne2). 
section_engine_table(engine_compression.  inference_engine  1 ) . 


"PREDICATE-FILE-INTERFACE*  designates  the  location  of  intermediate-predicate 
to  be  interfaced  among  the  partitions. 


predlcate_file_lnterface(defectlve(battery),  battery) . 
predlcate_file_interface(electrical_clrcult_problem.battery). 
predicate_flle_interface(hlgh_reslstance_ln_englne,  engine). 


In  order  to  be  able  to  access  temporarily  the  partition  holding  the  intermediate- 
predicate  neatly  for  some  specific  information,  when  the  intermediate-predicate  to 
be  queried  is  not  residing  In  current  process  state,  the  current  process  state  has  to  be 
pushed  onto  a  process  stack  and  the  holding  partition  should  be  brought.  When  all 
done,  we  should  come  back  to  the  original  process  state  by  popping  off  the  stack, 
carrying  all  cached  facts  and  conclusions. 

We  should  also  ensure  mutual-exclusion  condition,  since  the  same  procedure 
possessing  that  logic  could  be  consulted  several  times  at  different  process  states, 
possibly  attempting  to  modify  the  state  information  which  is  supposed  to  be  global 
throughout  the  program,  inevitably.  The  top-level  predicate  “CALL- 
PRECONDITION’  of  one  argument  which  stands  for  the  intermediate-predicate  itself 
carries  that  logic  out  successfully  even  for  some  piling  up  process  states. 


call_precondltlon(not(F_P))  clause(F_P), true),!. fall. 

call_preconditlon(not(F_P))  call_precondltlon2(F_P),!.fail. 

call_precondltion(not(F_P)j  call_preconditlon3(F_P),!. 

call-precondition(not(F_P))  !.not(calI(F_P)),!. 
call-precondition(F_P)  clause(F_P,true),!. 
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call-precondition(F_P)  call_precondition2(F_P),!. 
call_precondition(F_P)  call_precondltlon3(F_P),!.fall. 
call-precondltlon(F_P)  !.call(F_P),!. 


call_precondition2(First  .Precondition)  :  - 
assertaf  ticket). 

not(clause(fact(Flrst_Precondltlon,  JJJ)  .true)) . 
predlcate_file_interface(First_Precondltlon.  Sectlon.Flle) . 
process_stacklLIST).I!not(flrst?LIST.[Sectlon_File.X.Yi)). 
retract(ticket),flrst(LIST.(Flle_Name.XX.File_Attribute|), 
flnd_world_name(Flle_Name.File_Attrlbute.World_Name). 
save7world_Name),world_snap_shot(SNl), 
asserta(cache(World  Name .  SN 1 ))  .asserta(tlcket) . 
wrlte($***  LOADING  $). 

wrlte(Section_FiIe).wrlte($  SECTION  •••$), nl.nl, reconsult(Sectlon.File). 

retract(waitingjprocess_number(Nl)).N2  Is  N1  +  1, 

asserta(waltlng__process_number(N2)). 

retract(process_stack(LIST)  ,append(USection_Flle.fall.N211 , 

LIST.FINAL_LIST),asserta(process_stack(FINAL_LIST))!l, 

call(Flrst.Preconditlon)  ,world_snap_shot(  SN2) . 

write($***  EXITING  $),wrlte(Sectlon_File). 

wrltei$  SECTION  •••$).nl,nl.createfTEMP.'temp.arl'). 

advance_world(TEMP.SN  1  ,SN2). 

restore(World_Name).[templ.delete{'temp.arl,). 

asserta(fact(Flrst_Precondltlon.yes)). 

j. 


call_preconditlon3(First_Preconditlon)  :  - 
[ !  retract  (ticket) !  1  .not(tlcket) . 
not(clause(fact(Flrst_Precondition.  JJJ).  true)), 
predicate_file_lnterface(Flrst_Precondltion.Sectlon_FiIe), 
waiting_process_number(N  1 ) . 

Process_stack(LIST).first(LIST.(Section_File,fall,NlI), 
write($***  UNLOADING  $). writ «K Sec tlon.Flle), 
write($  SECTION  ***$).nl.nl, 
second(LIST.(File_Name.XXX.File-Attribute)), 
find_world_name(File_Name.File_Attrlbute, 

World.N  ame)  ,retract(cache(World_N  ame .  SN  1 )) . 
world_snap_shot(SN2)  .create  (TEMP .  'temp .  art) . 
advance_world(TEMP.SN  1  ,SN2). 
restore(World.Name)  .(temp) , 

asserta(fact(First_Precondition,  no))  ,delete(  temp .  ari) .  f . 

r 

The  predicate  -ADVANCE-WORLD’  serves  to  advance  the  database  of  the  previous 
state  with  the  facts  asserted  and  conclusions  reached,  while  still  keeping  the 
database  consistent. 

r 

advance  world(TEMP.LISTl.LIST2) 

wrlte_cache_llst(TEMP,LISTl,LIST2).!. 


write_cache_Ust(TEMP,LISTl.LIST2)  member  (X.LIST2). 

not(member(X.LIST  1 )) .  wrtte(TEMP  .X) . 
write(TEMP..).nl(TEMP).fail. 

wiite_cache_llst(TEMP.LISTl .LIST2)  nl(TEMP).close(TEMP). 

r 

The  predicate  “RESTORE-DATABASE"  of  one  argument  accepts  the  current  partition 
name  residing  as  its  argument  and  initializes  process-state  parameters  for  that 
partition. 

r 

restore_database(Section_File 

abollsh(process_stack/ 1), 
abolish(waltlng_process_number/ 1). 
asserta(process_stack([[Section_file.true.01D), 
asserta(waiting_process_number{0)). 

r 

The  predicate  “CACHE-PREDICATE-LIST"  keeps  the  list  of  facts,  to  be  earned 
among  the  process  states,  once  they  were  cache  advanced. 

r 

cachejpredlcate_list([asked(A.B),proved(diagnosis(C.D)). 

expressed(E)  .cracked.battery . 
electrical_circult_problem.light_problem. 
defective  (battery) . 
rest_of_okay(starting_system) . 
high_resistance_ln_engine)) . 

r 

The  purpose  of  the  predicate  “FIND-WORLD-NAME"  is  to  code  and  decode  either 
current  or  previous  process  state  to  a  unique  file  name  to  be  saved  or  restored 

r 

flnd_world_name(Flle_Name.Flle_Attribute,World_Name) 
atom_string(File_Name. String  1  )7 
substring!  String  1 .0.3.  String2) , 
int_text(Flle_Att  ribute .  Strlng3) , 
concat!  Strlng2 .  String3 ,  St  ring4) . 
atom_strlng(World_Name ,  St  rtng4) . 

r 

The  predicate  "WORLD-SNAP-SHOT"  gets  the  list  of  whole  asserted  facts  within  the 
process  state  for  which  it  was  called. 

r 

world_snap_shot(UST)  cache_predlcate_llst(Ll). 

run_snap_shot(Ll  ,LIS"h. 

run_snap_shot(|X],LIST)  local_snap_shot(I).X,LIST). 

run_snap_shot((X  I  LIST1.LIST2) 

local_snap_shot(U,X.LISTl). 

run_snap-shot(LIST.LIST3). 


append(LISTl  .LIST3.LIST2). 


HJ 
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local_snap_shot(A.B.C) 

asserta(sublistlA)) , 

clause(B.true)  .('.subllst(E)  ,append(|Bl  ,E  ,F) . 
ret  ract  (sub  list  ( E) ) .  assertal  sub  list(F)) !  ]  .fall. 
local_snap_shot(A.B.C)  sublist(D),retract(sublist(D)).C=D.!. 


list_of_expected_diagnosls(battery.(case_cracked.case_lntact. 

dlscharged.battery]). 

llst_of_expected_diagnosls(battery_cable_connectlons. 

lbad_cablc_connectlons.open_circuit|). 

recommended(Ivisual_inspectlonl. battery, case.cracked). 
recommended!  (vtsual_lnspectionl  .battery  ,case_lntact) . 
recommended(Ihigh_beam.hydrometer], battery, 

discharged.battery) . 

recommended(lvisual_lnspectlon.high_beam.voltmeter|, 

battery_cable_connectlons,bad_cable_connectlons). 

recommended(|vtsual_inspection.voTtmeter|. 

battery_cable_connectlons.open_clrcult). 

preconditlons(vlsual_inspectlon.battery.case_cracked.(l). 
p  reconditions!  visualjnspectlon,  battery, case_intact.|]). 
preconditlons(hlgh_beam. battery. discharged.battery, 

(not(cracked_battery).not(light_problem)]). 

precondltlons(hydrometer.battery.dlscharged_battery. 

(not(unable_to_use(hydrometer)))). 
predonditlons(visual_lnspectlon,  battery  _cable_cormectlons, 

bad_cable_connections.  []). 

precondltions(high_beam.battery_cabfe_connections. 

bad_cable-connections.|not(cracked_battery). 

not(light_problem).not(electrlcal_circuit_problem)|). 
precondltlons(voltmeter.battery_cable_connections. 
bad_cable_connectlon3.  lnot(defectlve(battery)) . 

not(electical_ctrcult_problem) , 
not(  unable_to_u  se(volmeter))  | ) . 
precondltlons(vlsual_ln3pectlon.battery_cable_connections. 

open_clrcuit.D). 

preconditlons(voltmeter.battery_cable_connections.open_clrcuit. 

[not(defectlve  (battery)) . 
not(unable_to_use(voltmeter))l). 

cracked.battery  dlagnosls(case_cracked).asserta(cracked_battery). 
electrlca]_curcult_problem  dlagnosls(open_clrcuit),asserta 

(electrlcal_clrcuit_problem) . 

Ught.problem  asklfnot(Ught_on),a3serta(llght_problem). 
defective(battery)  cracked_battery.asserta(defective(battery)). 
defectlve(battery)  diagnosis(discharged_battery),as9erta(defectlve(battery)). 

questioncode(light_on, 

$Dld  the  light  come  out  when  the  knob  turned  on$). 
questloncode(dlm,$Did  the  lights  dim  considerably  or  go  out$). 
questioncode(low_charge,$Does  it  indicate  less  than  1.140  ®$). 
questloncode(cracked,$Is  the  battery  case  cracked$). 
questloncode(exceeded.$Dld  voltage  drop  exceed  0.4  volts$). 
questioncode(lntact.$Is  the  battery  case  lntact$). 
questloncode(bad.$Dld  you  notice  bad  cable  or  connections#). 
questloncode(open_clrcuit.$Did  you  notice  an  open  connection#). 
questioncode(same,$Is  the  reading  same  as  the  battery  reading#). 


code(10,$Tum  lights  on  high. 

try  starter  and  note  action  of  lights.  $.$No  more$). 
code(20.$Test  the  state  of  charge  of 

battery  using  the  hydrometer.$.$No  more$). 
code(30.$Inspect  the  battery  case.  $. 

$For  cracks,  corrosion  and  water  level. $). 
code(40.$Connect  prods  of  voltmeter  on  3-volt  scale  to 
grounded  battery  post  and  starter  moter  housing. 

Close  the  starter  switch  and  not  the  voltmeter 
reading. $,$No  more$). 
code(50.$Inspect  the  battery  cables.$. 

$For  loose,  broken  open  cables  and  connections:$). 
code(battery,$Battery  located  under  the  engine  hood. 

most  probably  on  right  front  of  the  vehlcle.$. 

$No  more$). 

codefbattery  cable  connections. 

$Located  between  battery  and  starter  unlt.$,$No  more$). 

get_ready_equlpment(visual_lnspectlon.Part.case_cracked)  : - 

code_lnterpreter(30) . 

ge  t_ready_equlpment(vtsual_lnspec  tlon .  Part .  case  -  intact)  :  - 

code_lnterpreter(30) . 

get_ready_equlpment(hlgh_beam.Part.dlscharged_battery) 

code.lnterpretert  1 0) . 

get_ready_equlpment(hydrometer.Part.discharged_battery) 

code_lnterpretert20) . 

get_ready_equlpment(visual_lnspection.Part.bad_cable_cormectlons) 

code_lnterpreter150). 

get_ready_equipment(hlgh_beam.Part.bad_cable_connectlons)  :  - 

codejnterpretert  10). 

get_ready_equlpment(voltmeter.Part.bad_cable_connectlons)  : - 

code_lnterpreter(40) . 

get_ready_equlpment(vlsual_inspectlon.P.open_circult)  : - 

codejnterpretert  50). 

get_ready_equlpment(voltmeter.Part.open_circult) 

code.lnterpret  erf  40) . 


proved_diagnosls(vtsual_lnspectlon,Part,case_cracked) 

asklfl  cracked). 

proved_dlagnosls(vlsual_lnspectlon.Part,case_lntact) 

asklfl  intact). 

proved_dlagnosls(hlgh_beam.Part,dlscharged_battery) 

asklfldlm) .  asklf(hear(clatterlng)) . 

proved_diagn0sls(hydrometer.Part,dlscharged_battery) 

asklf{low_charge) . 

proved_dlagnosls(vlsual_lnspectlon.Part.bad_cable_connections)  : - 

asklflbad). 

proved_dlagnosls(high_beam,Part,bad_cable_connectlons) 

asklfldlm). 

proved_dlagnosls(voltmeter,Part,bad_cable_connectlons) 

asklfl exceeded). 

proved_dlagnosls(vlsual_lnspectlon.Part,open_clrcult)  :  - 
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list_of_expected_diagnosis(ignition_switch. 

lbrokcn_lgnltlon_switch_connections]). 

Iist_of_expected_diagnosis(magnetic_swttch. 

I  imp  rope  rly_fu  nc  tionlng_magne  tlc_s  witc  h ) ) . 
llst_of_expected_diagnosis(starter_solenoid. 

[malfunction,  in_starter_so!enoidl). 
list_of_expected,diagnosis(starter_unlt. 

[malfunction_in_starter_unltl). 

recommended(lelectrlcal_testl.electrical_test21,ignition,switch. 

broken,  ignition,switch_connectlons). 
recommended([electrlcal_test].magnetic,switch. 

improperly_functloning_magnetic_switch). 

recommended([electrical_test|.starter_solenoid. 

malfunction_in,starter_solenoid). 

recommendedl[symptom(slow_crankIng)  .symptom(starter_spins_free) , 
symptom(early).deductive_reasoning],starter_unit, 

malfunction_in_starter_unit) . 

precondltlons(electrical_test  1  .ignition,  switch. 
broken_ignitlon_switch_connections. 

(fact(starter_doesnt_tum,at_all)  ,not(defective(battery)) . 
(asklflhas(test_lamp_l2V));not(unable_to_use(voltmeter)))l). 
preconditions(electrlcal_test2.ignltion_switch. 
broken_ignltlon_swlth_connections. 

[fact(starter_doesnt_tum_at_all)  ,not(defective(battery)) , 
(askif(has(test_lampl2V));not(unable_to_use(voltmeter)))]). 
preconditions(electrical_test.magnetic_switch. 
improperly_fu  nctioning_magnetlc~  _swltch . 
[fact(starter_doesnt_tum_at_all). 
not(diagnosis(broken_lgnition_swltch_connctions)). 
askiflhas(J  umper)) )) . 

precondltlons(electrical_test.starter_solenold. 

malfunction_in_starter_solenoid. 
[fact(starter_doesnt_tum_at_all).not(defective(battery)), 
nonelectrical  circuit  problem)  ,askif[has(]umper))l) . 
preconditions! symptom(slow-cranking), starter-unit, 
malfunction_ln_starter_unlt. 
(fact(slow_cranking.not(defectlve(battery)). 
not(hlgh_resistance_in_engine)J). 
precondltions(symptom(starter_spins_free),starter_unit. 
malfunctlon_in_starter_unit. 

[fact(starter_tums_but_not_the,engine),askif(starter_spins_free)!). 
precondltions(symptom(  early). starter_unlt. 

[fact(starter_tums_but_not_the_engine),not(high_resistance_in_engine))). 


precondltions(deductive_reasonlng.starter_unit. 

malfunction_in_starter_unit. 

[fact(starter_doesnt_tum_at_all).not(defective(battery)), 
not(electrlcal_circuit_problem) . 
rest_of_okay(startlnglsystem) )) . 


rest_of_okay(startlng_system) 

not(diagnosls(broken_lgnitlon_swltch_connections)). 

not(diagnosls(improperly_functionlng_magnetic_swltch)). 

not(dlagnosis(malfunction_in_starter_solenold)). 

assi,\ta(rest_of_okay(startlng_system)). 


questloncode(lamp_lights.$Did  the  lamp  light  or  meter  needle 
move,  when  the  switch  is  tumed$). 
questloncode(lamp_flickers,$Dld  the  lamp  flicker  or  meter  needle 
move.when  the  key  jiggled$). 
questioncode(starter_spins_free.$Is  that  your  problem; 

starter  spins  free  but  won  t  engage*). 
questloncode(starter_operates.$Did  the  starter  operate$). 
questioncode(response_recorded.$Dld  the  starter  turn  the  engine 

either  normally  or  slowly  or  buzz$). 

code(magnetlc_switch,$An  electrically  operated  switch  whose  only  function 
is  to  make  contact  for  the  starter.  May  be  located  on 
the  starter.on  the  engine  side  of  firewall,  or  on  the 
fender  apron. $.$No  more$). 

code(starter_solenoid.$An  electrically  operated  whose  function  is  to  make 
electrical  contact  die  the  starter,  and  in  addition 

shift  the  starter  clutch  into  mesh  with  the  flywheel. 
Always  located  on  the  starter.*.*No  more$). 
code(starter_unlt.$Always  located  either  on  right  or  left  side  of  engine  veiy 
close  to  the  bottom. $.No  more*) . 
coded  00.$Check  the  Ignition  switch  for  loose  connections, 
cracked  insulation,  or  broken  wires.*. 

$Connect  a  12V  test  lamp  or  voltmeter  between  the 
starter  post  of  solenoid  and  ground.  Turn  the  ignition 
switch  to  the  "start"  position  and  jiggle  the  key.*). 
code(200.$Determine  whether  the  magnetic  switch  is  functioning 
properly.*. 

$By  connecting  a  Jumper  across  the  switch  and 
turning  the  ignition  switch  to  start.*). 
code(300.*Test  the  starter  solenoid.*. 

SConnect  a  Jumper  from  the  battery  post  of 
solenoid  to  the  starter  post  of  solenoid.*). 

get_ready_equlpment(Test.lgnition_swltch. 

broken_lgnltlon_swltch_connectlons)  code_lnterpreterUOO). 
get_ready_equlpment(electrlcal_test.magnetlc_switch. 
improperly_functlonlng_magnetlc_switch)  code_lnterpreter<200). 
get_ready_equlpment(electrlcal_test. starter,  solenoid. 

malfuncUon_ln_starter_solenoTd)  code  lnterpreter|300). 
get_ready_equipment{Symptom,starter_unlt. 

malfunctlon_ln_starter_i;nlt). 

proved_diagnosls(electrlcal_testl.lgnltlon_switch, 

broken, lgnition_switch_connectlons)  askifnot(lampjights). 

proved_dlagnosls(electrlcal_test2.1gnltlon_swltch. 

broken_lgnitlon_switch_connectlons)  askifllamp_flickers). 
proved_diagnosls(electrical_test.magnetlc,switch. 


Iist_of_expected_dlagnosls(sub_diagnosls. 

[defective(lgnitlon_system),defectlve(primary_clrcult_coil_slde). 

defectlve(prlmary_clrcult_dlstributor_slde)]). 

llst_of_expected_dlagnosls(lgnltlon_points, 

[bumed_or_damaged(ignltlon_polnts), 

out_of_adjustment(ignltlon_polnts)]). 

list_of_expected_diagnosls(condenser,[defectlve(condenser)]). 

list_of_expected_diagnosis(ballast._resistor. 

[defective(ballast_reslstor)  ]) . 
list_of_expected_dlagnosls(lgnition_swltch, 

(defectlve(lgnltlon_swltch)]). 

list_of_expectcd_diagnosls(ignltlon_coil. 

[defectlve(coll_primary_reslstance), 
defective(coll  secondary_reslstance)]). 
list_of_expected_diagnosls(plugs.(defective(spark  plugs)]) 
list_of_expected_diagnosls(distrlbutor.lpoor  (distrlbutor_ground) , 
defective(distrlbvtor_rotor).molsture_on(distributor_cap), 

cracked_or_tracked(dlstrlbutor_cap). 
defec.ive(  listributor_wlres_or_ignition_plugs)]) . 
llst_of_expected_dlagnosls(complete  system. 

[lnductlon_flrlng_of_cycllnders 

lncorrect(distrlbutor_firing_sequence). 

incorrect (lgnltion_timing)  ]) . 

recommended(Ispark_test].sub_diagnosls.defectlve(lgnltion_system)). 
recommended(Ivoltmeter_test  1  ,voltmeter_test2|.sub_dlagnosls. 

defective  (prlmary_c  lrcu  lt_coll_s  lde ) ) . 
recommended([voltmeter].sub_dlagnosls. 

defectlve(primary_clrcult_dlstributor_slde)). 
recommended!  [vlsual_lnspectlon],lgnltlon_polnts. 

burned_or_damaged(lgnltlon_polRts)) 

recommended([vlsuaLinspectlon.dwell_meter].lgnltlon_polnts. 

out_of_adJustment(lgnltlon_polnts)). 
recommended!  (voltmeter]  ,ballast_reslstor. 

defect  Jve(ballast_reslstor) ) . 

recommended([voltmeter}.condenser,defectlve(condenser)). 
recommended!  [electrlcal_test] .  ignltlon_swltch , 

defectlve(lgnltlon_swltch) ) . 

recommended(!voltmeter],ignitlon_coll, 

defectlve(coll_prtmary_reslstance)) . 
recommended(Ivoltmeter].lgnltlon_coll. 

defectlve(coll_secondary_resistance)). 
recommended!  visual_lnspection], plugs. defectlve(spark_plugs)). 
recommended((j  umper]  .distributor,  poor! distrlbutor_ground)) . 
recommended!  vlsual.lnspectlon], distributor, 

defecttve(distributor_rotor)). 

recommended((hypothesls(molsture_on(dlstrlbutor_cap))]. 

dlstributor,molsture_on(dlstributor_cap)). 
recommended(vlsual_lnspectlon], distributor. 

cracked_or_tracked(dlstrlbutor_cap)). 
recommendeddvlsualjnspection],  distributor. 

defectlve(dlstrlbutor_wires_or_tgnltlon_plugs)). 


recommended(try.to.check), complete  system. 

induction_firing_of_cyclinders). 
recommended  ([try_to_check|.complete_system. 

incorrect(distributor_firlng_sequence)). 
recommended(|test_lightI.  complete_system. 

tncorrect(ignltlon.timlng)). 

preconditions(  spark_test .  sub.diagnosls . 

defective(lgnition_system) .(]) . 
preconditions(voltmeter_test  1  .sub.diagnosls, 

defectlve(primary_circuit_coil_side). 

[not(diagnosis(defective(ignitlon_switch))),askif(has(jumper)T. 

not  ( unable_to_use(voltmeter))  1 ) . 
precondltions(voltmeter_test2.sub_diagnosls, 

defective(primary_circuit_coil_side) 
not(diagnosls(defectlve  ignition_switch))).askif(has()umper)). 

not(unable_to_use(voltmeter))]). 

preconditlons(voltmeter.sub_dlagnosis. 

defective(primary_circuit_distributor_side). 

(not(diagnosis(defective(ignltion_swltch))). 

not(diagnosis(bumed_or_damaged(ignition_points))). 

not  ( unable.  to_use(voltmeter))  ] ) . 
preconditlons(visual_inspection.ignition_points 

bumed_or_damaged(ignltion_points) ,  []) . 
preconditions(visual_inspection.ignition_polnts, 

out_of_adjustment(ignition_points).[]). 

precondltlons(dwell_meter.ignition_polnts. 
out_of_adJustment(ignitlon_points).[not(fact(engine_wont  .start)), 

not(unable_to_use(dwell_meter)))). 
preconditlons(voltmeter  .ballast.reststor . 

defectlve(ballast_resistor),[not(unable_to_use_(voltmeter))]). 

preconditlons(voltmeter.condenser.defective{condenser). 

(not(unable_to_use(voltmeter))]). 

preconditions(electrical_test,ignition_swltch, 

defectlvedgnltion  switch), ((asklflhas(test_t amp.  12V)); 

not(unable_to_use(voltmeter)))l). 

preconditlons(voltmeter.ignltlon_coll, 

defectlve(coil.primary.resistance), 

(not{unable_to_use(voltmeter))]). 

precondltions(ohmmeter.ignitlon_coll, 

defective(coll_secondary  .resistance). 

[not(unable_to_use(ohmmeter))]). 
precondltlons(vlsual_lnspectlon,  plugs,  defectlve(spark_plugs),[)). 
preconditlons(Jumper,dlstributor,poor(distrlbutor_ground), 

[asklf(has(Jumper))l). 

preconditions  (visual.inspection, distributor, 

defectlve(distributor_rotor),[]). 

preconditlons(hypothesis(moisture_on(distributor_cap)), 

distributor,molsture_on(distributor_cap), 
(hypothesls(moisture_on(dlstributor_cap))J). 
preconditlons(vlsual_lnspection. distributor, 

cracked_or_tracked(distributor_cap).l)). 

preconditions(visual_inspectlon, distributor. 
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defective(distributor_wircs_or_lgnitlon_plugs) ,  [)) . 
preconditlons(try_to_check.complete_system. 

induction_firing_of_cyllnders.N). 

preconditions(try_to_check.complete_system. 

lncorrect(distributor_flrlng_sequence) .  ID . 
precondltions(test_light,complete_system, 

lncorrect(ignltion_ttming). 

|not(diagnosis(out_of_adjustment(lgnltlon_points))). 

not(unable_to_use(test_light))l). 

hr  not(hypothesis(defective(spark_plugs))).fact(hard_startlng). 
fact(misfire_under_load).asserta(hypothesis(defectlve(spark_plugs))). 
hr  not(hypothesls(defective(spark_p]ugs))).fact(hard_startlng), 
fact(poor_plck_up),asserta(hypothesls(defective(spark_plugs))). 
hr  not(hypothesls(defective(spark_plugs))). 
askifThearldetonatlon)) . 
asserta(hypothesls(dcfcctive(spark_plugsD). 
hr 

not(hypothesis(defective(distributor_wlres_or_lgnltlon_plugs))). 
fact(hard_startlng).fact(poor_pick_up). 
asserta(hypothesls(defectlve(dlstributor_wlres_or_ignltlon_plugs))). 
hr  not(hypothesis(defective{condenser))). 
dlagnosls(bumed_or_damaged(lgnitlon_points)). 
asscrta(hypothesls(defectlve{condenser))). 

hr  not(hypothesls(induction_firlng_of_cylinders)). 

(fact(backflre_through_the_cxhaust|;fact(backfire_through_the_carburetor)), 
fact(rough_ldfe) .  askSlhear(detonatlon) ) . 

asserta(hypothesis(mduction_flrlng_of_cyllnders)). 
hr  not(hypothesls(lncorrect(dlstrlbutor_flring_sequcnce))). 
fact(hard_startlng)  ,fact(backflre_through..the_carburetor) . 
asklf(recent_opcrator J  ob) . 

asserta(hypothesls(lncorrect(dlstrlbutor_firlng_sequence))). 
hr  not(hypothesis(poorfdistrlbutor_ground))), 
fact(hard_startlng) , 

(fact(mlsflre_under_load);fact(englne_miss_at_.htgh_rpm)). 
asserta(hypothesls(poor(dlstributor_ground))). 
hr  not(hypothesls(lncorrect(lgnltion_tlmtng))), 
asklf(hear(detonation)). 

asserta(hypothesls(lncorrect(lgnltion_tlmlng))). 

hr  not(hypothesis(defecttve(coll_secondary_resLstance))), 
fact(hard_startlng).(fact(mlsflre_under_load); 
fact  ( engine_mlss_at_h  igh.rpm) ) . 

asserta(hypothesls(defectlve(coll_9econdary_reslstance))). 
hr  not(hypothesls(molsture_on(dlstrlbutor_cap))), 
(fact(engine_wont_start):fact(hard_startlng)), 
(asklf(high_level_of_molsture_ln_atmosphere); 
asklf(wash_recently)) , 

asscrta(hypothesis(molsture_on(distributor_cap))). 

hr  not(hypothesis(cracked_or_tracked(dlstrlbutor_cap))), 
fact(hard_startlng),fact(susceptible_to_moisture). 
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asserta(hypothesis(cracked_or_tracked(dlstributor_cap))). 


hr  not(defectiveUgnitton_system)),fact(engine_wont_start), 
diagnosis(defective(ignition_system)). 
retract_sub_dlagnosis(defective(ignltion_system)). 
asserta(defectlve(lgnltlon_system)). 
hr  not(hypothesls(defectlve(coil_secondary_resistance))). 
defective(ignltion_  system) , 

asserta(hypothesis(defective(coll_secondary_resistance))). 
hr  not(defective(primary_circuif.coll_side)). 
defectlve(lgnition_system) , 
diagnosis(defective(primary  .circuit  _coil_side)). 
retract_sub_dlagnosls(defective(primary_circult_coil_side)). 
assert_hypothesls(defecttve(ballast_reslstor)). 
assert_hypothesis(defective(coil_piimary_resistance)). 
asserta(defectlve(prlmary_circult_cotl_slde)). 
hr  :  -not(defectlve(primary_circuit_dlstributor_slde)) , 
defectlve(ignltion_system) . 

diagnosls(defective(primary_circult_distrlbutor_side)), 

retract_sub_dlagnosls(defectlve(prlmary_clrcult_dlstrlbutor_side)). 

assert_hyP°thesis(defectlve(condenser)). 

assert_hypothesis(out_of_adJustment(ignltion_points)). 

assert_hypothesls(defective(distrlbutor_rotor)), 

asserta(defective(primary_circuit_dlstrlbutor_side)). 

assert_hypothesls(Hypothesls)  hypothesls(Hypothesls). 
assert_hypothesis((Hypothesis)  not(hypothesis(Hypothesis)) . 

asserta(hypothesls(Hypothesls)) . 

retract_sub_diagnosis (Diagnosis)  repeat. 

retract(proved(dlagnosls(Diagnosis.Equipment))). 
not(proved(dlagnosls(Dlagnosls, Equip))),!. 


qu  estloncode(recent_operator J  ob . 

$Has  any  operator  Job  recently  been  done  on  ignition  system$). 
questloncode(high_level_of_molsture_ln_atmosphere. 

$Do  you  observe  a  high  level  of  moisture  in  the  atmosphere$). 
questloncode(wash_recently,$Have  you  washed  the  car  recently$). 
questloncode(good_spark,$Is  the  spark  good  and  consistent$). 
questioncode(voltage_for_voltmeter_test  1  .$ 

With  ignition  switch  on,  did  the  voltmeter  show  5.5  to  7  volt$). 
questioncode(voltage_for_voltmeter_test2. 

$While  cranking,  did  the  voltmeter  show  around  9  volts$). 
questloncode(voltmeter_readlng_remalns_zero.$Whlle  cranking, 
did  the  voltmeter  reading  remain  zero  or  close  to  lt$). 

questloncode(bumed_or_damaged(ignltlon_points). 

$Did  you  observe  burned  or  damaged  ignition  points$). 
questloncode(out_of_adJustment(lgnltion_points). 

$Dld  you  note  excessive  open  or  close  gap  between  points$). 
questioncode(excesslve_variatlon_in_dwell, 

$Do  you  note  an  excessive  variation  in  dwell.  (over3  deg) 
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as  the  speed  is  Increased®). 

questioncode(zero_resistance,$Is  the  resistance  zero®). 
questioncode(shows_other_than_infinte. 

$Did  you  note  any  reading  other  than  infinite®). 
questioncode(lamp_donot_flicker_but_llght.$Did  the  lamp  light®). 
questloncode{read_lohm_resistance.®Dld  you  read  about  1  ohm®). 
questioneode(between4and8.®Is  the  reading  between  4K  and  8K  ohm®). 
questloncode(bumed(spark_plug_points), 

$Did  you  note  burned  spark  plug  points®). 
questioncode(change_something,$Dld  it  change  something®). 
questioncode(rotor_tums_appropriately, 

$Does  the  rotor  turn  appropriately  with  no  loosened  components®). 
questioncode(cracked_or_tracked(dlstributor_cap). 

$Do  you  notice  cracked  or  tracked  distributor  cap  or  component®). 
questioncode(defectlve_ignltion_wires, 

$Do  you  observe  any  cracked,  burned,  or  broken  insulation®). 
questioncode(inductlon_flring.®Do  you  note  any  consecutive  wires 

causing  induction  firing®). 

questloncode(missing_cylinder.$Do  you  identify  any  missing  one®). 
questloncode(flash_llght_intermlttently.®Does  the  light  flash  intermittently®). 
questioncode(unfixed_at_constant_engine_speed. 

$Does  the  pointer  appear  to  move  on  the  index  scale®). 

code(lgnltion_polnts. 

$Ignltlon  points  are  located  inside  the  distributor  under  the 
distributor  cap.®.$No  more®). 

code(condenser.®Condenser  is  located  inside  the  distributor 
under  the  distributor  cap.®.®No  more®). 

code(ballast_resistor.®Ballast  resistor  lies  between  the  ignition 
coil  and  ignition  switch.®.®No  more®), 
code  (lgnltion_coil . 

(Always  located  very  close  to  engine. ®.®No  more®). 
code(plugs.®Spark  plugs  are  located  on  the  engine  connected  to 
distributor  by  ignition  wires. ®,®No  more®). 

code(distnbutor.®Distrlbutor  is  one  of  the  major  components  of  the 
ignition  system.®,®Whlch  is  located  close  to  the  engine.®). 


code(1000, 

(Check  for  spark  at  the  coll  high  tension  lead.®, 

(Remove  the  coll  high  tension  lead  from  the  distributor  and 
position  it  approximately  1/4"  from  ground.  Crank  the  engine 
and  observe  the  spark.®). 

code(2000.®Wlth  engine  at  operating  temperature,  but  stopped, 
and  the  distributor  side  of  the  ignition  coil  grounded  with  a 
Jumper  wire,  hook  up  a  voltmeter  between  the  ignition  coil 
(switch  side)  and  a  good  ground. ®.$No  more®). 

code(3000.®With  the  voltmeter  on  the  16-20  volt  scale,  connect 
one  voltmeter  lead  to  the  distributor  side  of  the  coil.  Remove 
the  high  tension  wire  from  the  coil  and  ground  it.  Close  ignition 
switch  and  slowly  bump  the  engine  to  open  and  close  the  points.®. 
(No  more®). 

code(4000.®Visually  inspect  the  ignition  points. $,®For  burned. 
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damaged,  or  out-of-adjustment  points. $). 
code(5000. 

$Perform  the  dwell  meter  test  according  to  manufacturer’s 

specifications.  $,$No  more$). 

code(6000, 

$Check  the  ballast  resistor  or  resistor  wire  for  an 
open  circuit,  using  an  ohmmeter.$,$No  more$). 
code(7000,$Check  the  condenser  for  short. $,$Connect  an  ohmmeter 
across  the  condenser  body  and  the  pigtail  lead.$). 
code(8000,$Check  the  Ignition  switch  "on"  positlon.$. 

$Connect  a  jumper  wire  between  the  distributor  side  of  the  coil 
and  ground,  and  a  12V  test  lamp  between  the  switch  side  of  the 
coll  and  ground.  Remove  the  high  tension  lead  from  the  coll.  Turn 
the  igntlon  switch  on  and  Jiggle  the  key.$). 
code(9000.$To  check  Ignition  coll  resistance,  primary  side, 
switch  ohmmeter  to  low  scale.  Connect  the  ohmmeter  leads  across 
the  primary  terminals  of  the  coll  and  read  the  low  ohms  scale.$, 

$No  more$) . 

code(9lOO,$Check  the  ignition  coll  secondary  side  resistance. $, 
$Switch  ohmmeter  to  high  scale,  connect  one  test  lead  to  the 
distributor  cap  end  of  the  coll  secondary  cable,  connect  the 
other  test  lead  to  the  distributor  terminal  of  the  coll.$), 
code(9200,$Remove  the  spark  plugs. $,$Noting  the  cylinders  from 
which  they  were  removed. $). 

code(9300,$Connect  a  Jumper  wire  between  distributor  body  and  a 
good  ground.$.$No  more$). 

code(9400,$Remove  the  distributor  cap  and  check  to  make  sure  that 
the  rotor  turns  when  the  engine  is  cranked.  Visually  inspect  the 
distributor  components.$.$No  more$). 
code(9500.$Inspect  the  distributor  for  cracked  or  tracked 
distributor  cap  or  components.$.$No  more$). 
code(9600.$Visually  inspect  the  spark  plug  wires  for  cracking  or 
brlttleness.$.$Spark  plug  wires  can  be  checked  visually  by 
bending  them  in  a  loop  over  your  finger.  $). 
code(9700.$Ensure  that  no  two  wires  are  positioned  so  as  to  cause 
induction  firlng.$.$Misfirlng  can  be  the  result  of  spark  plug 
leads  to  adjacent,  consecutively  firing  cylinders  running  parallel 
and  too  close  together.$). 

code(9800.$Locate  an  ignition  mlss,$,$Wlth  the  engine  running, 
remove  each  spark  wire,  one  at  a  time,  until  one  is  found  that 
doesn't  cause  the  engine  to  roughen  and  slow  down.$). 
code(9900,$Perform  the  ignition  timing  according  to 
manufacturer's  specificatlon.$,$No  more$). 

get_ready_equlpment(spark_test,sub_diagnosls, 

defective! lgnitlon.system))  code_lnterpreter(l<X)0). 

get_ready_equlpment(Voltmeter_test,sub_diagnosis, 
defectlve(prlmary_circuit_coll_slde))  code_lnterpreter(2000). 
get_ready_equipment(voltmeter.sub_dlagnosis, 

defective(primary_circuit_dlstributor_slde))  :  - 

code_interpreter(3000) . 

get_ready_equipment(vlsual_inspectlon,lgnltlon_polnts. 

bumed_or_damaged(lgnltion_polnts)) 
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code_tnterpreter( 4000) . 

get_ready_equipment(vlsual_inspectlon.ignltion_points. 
ou  t_of_adJ  u  stment  ( lgnlt ion_points) )  :  - 

code_interpreter(4000). 

get_ready_equlpment(dwell_meter.ignition_points. 
ou t_of_adJ u stment ( ignition_points) )  :  - 

code_interpreter( 5000) . 

get_ready_equlpment(voltmeter,ballast_reslstor. 

defectlve(ballast_resistor)) 

code_interpreter(6000) . 

get_ready_equipment(voltmeter,  condenser,  defecttvelcondenser)) 

code_lnterpreter(7000). 

get_ready_equlpment(electrlcal_test .  ignltion.switch . 
defective(lgnition_swltch)) 

code_lnterpreter(8000) . 

get_ready_equipment(voltmeter,  lgnltion_coll, 

defecttve(coil_primary .resistance)) 

code_interpreter(9000) . 

get_ready_equipment(voltmeter.  lgnlt ion_c oil, 

defective(coll_secondary_reslstance)) 

code_interpretert9 100). 

get_ready_equipment(visual_inspection.plugs. 

defecttve(spark_plugs)) 

code_interpreter(9200) . 

get_ready_equipment()umper.dlstributor.poor(distributor_ground)) 

code_interpretert9300). 

get_ready_equlpment(visual_inspection.distributor. 

defectlve(dlstrlbutor_rotor)) 
code_interpreter(9400) . 
get_ready_equipment(hypothesls(molsture_on_distributor_cap)). 

dlstributor.molsture_on(dlstributor_cap)). 
get_ready_equipment(vlsual_lnspectlon.distrlbutor. 
cracked_or_tracked(distrlbutor_cap))  code_lnterpreter(9500). 
get_ready_equipment(visual_inspectlon.distributor. 

defectiveIdlstributor_wires_or_ignition_plugs)) 

code_lnterp retell 9600). 

get_ready_equlpment(try_to_check.complete_system, 

induction_firing_of_cylinders) 

code_interpreter<9700) . 

get_ready_equlpment(try_to_check.complete_system, 

lncorrect(dlstrlbutor_flrlng_sequence)) 

code_lnterpreter(9800) . 

get_ready_equlpment(test_light.complete_system, 

lncorrect(lgnitlon_tlming))  :* 

code_lnterpreter(9900). 


proved_dlagnosls(spark_test.sub_dlagnosls. 

defective!  lgnitlon.system)) 

askifnot(good_spark) . 

proved_dlagnosis(voltmeter_test  1  ,sub_dlagnosls. 

defective(prlmary_clrcuit_coil_side))  :  - 


asklfnot(voltage_for_voltmeter_test  1 ) . 
proved_dlagnosls(voltmeter_test2,sub_dlagnosls, 

defectlve(prtmary_circult_coll_slde))  :  - 
asklfnot(voltage_for_voltmeter_test2). 
proved_dlagnosis(voltmeter.sub_diagnosls, 

defectlve(primary_circuit_distrlbutor_slde)) 

asklfnot(voltmeter_readlng_remalns_zero). 

proved_dlagnosis(vlsual_inspection.lgnition_points. 

bumed_or_damaged(ignltlon_points)) 

askiflbumed_or_damaged(lgnltlon_polnts)). 

proved_dlagnosis(vlsual_inspectlon.ignltlon_points. 

out_of_adJustment(lgnition_points))  :  - 
assert  .hypothesis!  lncorrect(lgnltion.timing)). 
proved_diagnosis(dwell_meter.lgnitlon_points. 

out_of_adJ ustment(ignitlon_polnts) )  : - 

askiflexcesslve.variation.in.dwell) , 
assert_hypothesis(defective(distributor_rotor)), 
assert_hypothesls(defectlve(coll_primary_reslstance)), 
assert  _hypothesis(defectlve(coil_secondary_resistance)). 
assert_hypothesis(lncorrect(ignition_timtng)). 
proved_diagnosis(voltmeter.ballast  .resistor, 

defectivefballast.resistor)) 

asklflzero.reslstance) . 

proved_diagnosis(voltmeter,condenser.defective(condenser)) 

askiffshows.other.than.lnfinite) . 
proved_diagnosis(electrical_test  .ignition.swttch . 

defective(ignition.switch)) 
askifnot(lamp_donot_flicker_but_light) . 
proved_diagnosis(voltmeter.lgnition_cotl, 

defecttve(coiljrirnary_reslstance))  > 
askiflread.lohmjreslstance) . 

proved.diagnosisfvoltmeter.lgnitlon.coil, 

defective  (coll.secondaiy.resistance))  :  - 

asklfnot(between4and8) . 

proved_diagnosis(visual_inspectlon,plugs,defective(spark_plugs)) 

askiflbumed(sparicj)lugjx)ints)). 

assert_hypothesis(defectlve(condenser)). 
proved_diagnosls(]umper.distrlbutor,poor(distrlbutor ground)) 

askiflchange.something) . 


proved_diagnosls(vlsual_inspectlon,  distributor. 

defective(distributor.rotor)) 
askifhottrotor.tums.appropriately) . 

proved_dlagnosls(hypothesls!molsture_on(distributor_cap)). 

distributor,  moisture.on(distributor)cap)). 

proved_diagnosls(vlsual_lnspection.dlstributor, 

cracked_or_tracked(distributor_cap)) 

asklf(cracked_or_tracked(dlstributor_cap)). 

proved.diagnosisfvlsual.inspectlon.distributor, 

defectlve(dlstrlbutor_wires_or_ignltlon_plugs))  :  - 

askif(defective_ignition_wlres) . 
proved_diagnosis(try_to_check.complete_system, 

induction_firlng_of_cylinders) 
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asklf(induction_firlng) . 

proved_dlagnosis(try_to_check.complete_system. 

Tncorrect(distrlbutor_firtng_sequence))  : - 

asklf(mlssing_cylinder). 

proved_dlagnosis(test_llght.complete_system 

lncorTect(ignltlon_timlng)) 
asklftflash_llght_lntermlttently) . 
assert_hypothesis(pooi1dtstributor_ground)). 
assert_hypothesis(cracked_or_tracked(dlstrlbutor_cap)). 
assert_hypothesis(defectlve(distributor_rotor)). 
proved_dlagnosts(test_light.complete_system. 

Incorrect(lgnltlon_tlming)) 

asklf(unflxed_at_constant_engine_speed). 

assert_hypothesis(defectlve(dlstrtbutor_rotorT). 


Ust_of_expected_dlagnosis(complete_system. 

Ihigh_reslstance_ln_englne]). 

recommended([torque_testl.complete_system. 

high_rcsistance_in_enginc) . 
preconditions(torque_test,complete_3ystem. 

high_resistance_ln_engine. 

|askifihas(torque_tool))]). 

get_ready_equlpment(torque_test.complete_system. 

hlgh_resistance_in_engine) 
code_tnterpreter(  1 0500) . 
proved_diagnosls(torque_test.complete_system. 

high_reslstance_in_engine) 

askifnot(ablc_to_tum). 

high_reslstance_in_englne  diagnosis(high_resistance_in_engine). 

asserta(high_resistance_in_englne). 

questioncode(able_to_tum,$Could  you  turn  the  engine  freely$). 
coded 0500,$Attach  the  torque  tool  to  front  crank  wheel  of  motor, 
and  try  to  turn  it  by  power.$.$No  more$). 


APPENDIX  B 


SAMPLE  USER  SESSIONS 


/ . / 

Actual  responses  given  regarding  the  vehicle 

under  consideration  have  been  simulated 

throughout  the  sample  consultations. 

/ . * . / 


CONSULTATION  #1: 

>api 

Arity/Prolog  Interpreter  Version  4.0 
Copyright  (c)  1986  Arity  Corporation 
?-IglobalJ. 

VEHICLE  DIAGNOSIS  EXPERT  SYSTEM  IMPLEMENTATION 

Please  enter  “diagnosis"  to  start  the  consultation. 

yes 

?-diagnosis. 

1:  Does  the  engine  start  at  all? 

2:  Does  the  engine  run  poorly? 

Give  numbers  of  questions  whose  answer  is  yes.(lj. 

1:  Does  starter  turn  at  all? 

2:  Does  starter  turn,  but  not  the  engine? 

3:  Does  starter  turn  the  engine  very  slowly? 

4:  Does  starter  turn  the  engine  normally? 

Give  numbers  of  questions  whose  answer  is  yes.[l]. 

1:  Does  starter  turn  the  engine  very  quickly? 

2:  Does  the  engine  fire  intermittently? 

3:  Does  the  engine  fire  consistently? 

Give  numbers  of  questions  whose  answer  is  yes.[ ). 


,<<vi ,  i  j'i.i  i.iu  ■  j 


***  BATTERY  SECTION  *** 

Do  you  know  where  the  battery  is? 

Inspect  the  battery  case. 

Do  you  need  further  explanation? 


(yes/no)  ==>  y. 


(yes/no)  ==>  n. 


Is  the  battery  case  cracked?  (yes/no)  ==>  n. 

Is  the  battery  case  intact?  (yes /no)  ==>  n. 

Did  the  light  come  on  when  the  knob  turned  on?  (yes /no)  ==>  y. 

Turn  lights  on  high,  try  starter,  and  note  action  of  lights. 


Did  the  lights  dim  considerably  or  go  out? 
Do  you  have  a  hydrometer? 

Do  you  know  how  to  use  a  hydrometer? 


(yes /no)  ==>  n. 
(yes/no)  ==>  y. 
(yes/no)  ==>  y. 


Test  the  state  of  charge  of  the  battery  using  the  hydrometer. 

Does  it  indicate  less  than  1.140  @?  (yes/no)  ==>  n. 

Do  you  know  where  the  battery  cable  connection  is?  (yes/no)  ==>  y. 


Inspect  the  battery  cables. 

Do  you  need  further  explanation? 

For  loose,  broken,  open  cables  and  connections: 
Did  you  notice  bad  cables  or  connections? 

Did  you  notice  an  open  connection? 

Do  you  have  a  voltmeter? 

Do  you  know  how  to  use  a  voltmeter? 


(yes /no)  ==>  y. 


(yes/no)  ==>  n. 
(yes /no)  ==>  n. 
(yes/no)  ==>  y. 
(yes /no)  ==>  y. 


Connect  prods  of  voltmeter  on  3-volt  scale  to  grounded  battery  post 
and  starter  motor  housing.  Close  the  starter  switch  and  note  the 
voltmeter  reading. 


Is  the  reading  the  same  as  the  battery  reading? 

MOST  LIKELY  DIAGNOSIS  LIST: 

LESS  LIKELY  DIAGNOSIS  LIST: 

Open  circuit 


(yes /no)  ==>  y. 
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VEHICLE  DIAGNOSIS  EXPERT  SYSTEM  IMPLEMENTATION 

Please  enter  “diagnosis"  to  start  the  consultation. 

yes 

?-diagnosis. 

1:  Does  the  engine  start  at  all? 

2:  Does  the  engine  run  poorly? 

Give  numbers  of  questions  whose  answer  is  yes.[l]. 

1:  Does  starter  turn  at  all? 

2:  Does  starter  turn,  but  not  the  engine? 

3:  Does  starter  turn  the  engine  very  slowly? 

4:  Does  starter  turn  the  engine  normally? 

Give  numbers  of  questions  whose  answer  is  yes.  [3). 

1:  Does  starter  turn  the  engine  very  quickly? 

2:  Does  the  engine  fire  intermittently? 

3:  Does  the  engine  fire  consistently? 

Give  numbers  of  questions  whose  answer  is  yes.[  J. 

***  STARTER  SECTION 


***  LOADING  BATTERY  SECTION 

Do  you  know  where  the  battery  is? 

Inspect  the  battery  case. 

Do  you  need  further  explanation? 

Is  the  battery  case  cracked? 

Is  the  battery  case  intact? 


(yes /no)  ==>  y. 


(yes /no)  ==>  n 


(yes /no) 
(yes /no) 


==>  n 
==>  n 


Did  the  light  come  on  when  the  knob  turned  on?  (yes/no)  ==>  y 
Turn  lights  on  high,  try  starter,  and  note  action  of  lights. 
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Did  the  lights  dim  considerably  or  go  out?  (yes/no)  ==>  y. 

Did  you  hear  a  sound  like  a  clattering?  (yes /no)  ==>  n. 

Do  you  have  a  hydrometer?  (yes /no)  ==>  y. 

Do  you  know  how  to  use  a  hydrometer?  (yes /no)  ==>  y. 

Test  the  state  of  charge  of  the  battery  using  the  hydrometer. 

Does  it  indicate  less  than  1.140  @?  (yes/no)  ==>  n. 

***  UNLOADING  BATTERY  SECTION  *** 


***  LOADING  ENGINE  SECTION  *** 

Attach  the  torque  tool  to  the  front  crank  wheel  of  the  motor,  and  try 
to  turn  it  by  power. 

Could  you  turn  the  engine  freely?  (yes/no)  ==>  y. 

•**  UNLOADING  ENGINE  SECTION  ••• 

MOST  LIKELY  DIAGNOSIS  LIST: 

LESS  LIKELY  DIAGNOSIS  LIST: 

Malfunction_in_starter_unit 


>api 

Arity/Prolog  Interpreter  Version  4.0 
Copyright  (c)  1986  Arity  Corporation 
?- [global). 

VEHICLE  DIAGNOSIS  EXPERT  SYSTEM  IMPLEMENTATION 

Please  enter  “diagnosis”  to  start  the  consultation. 

yes 

?-diagnosis. 

1:  Does  the  engine  start  at  all? 

2:  Does  the  engine  run  poorly? 

Give  numbers  of  questions  whose  answer  is  yes.[l). 

1:  Does  starter  turn  at  all? 

2:  Does  starter  turn,  but  not  the  engine? 

3:  Does  starter  turn  the  engine  very  slowly? 

4:  Does  starter  turn  the  engine  normally? 

Give  numbers  of  questions  whose  answer  is  yes. (2). 

1:  Does  starter  turn  the  engine  very  quickly? 

2:  Does  the  engine  fire  intermittently? 

3:  Does  the  engine  fire  consistently? 

Give  numbers  of  questions  whose  answer  is  yes. [2). 

I  found  a  contradiction! 

Check  and  repeat  your  answer. 

1 :  Does  starter  turn  at  all? 

2:  Does  starter  turn,  but  not  the  engine? 

3:  Does  starter  turn  the  engine  very  slowly? 

4:  Does  starter  turn  the  engine  normally? 

Give  numbers  of  questions  whose  answer  is  yes.  [2). 

1:  Does  starter  turn  the  engine  very  quickly? 

2:  Does  the  engine  fire  intermittently? 

3:  Does  the  engine  fire  consistently? 

Give  numbers  of  questions  whose  answer  is  yes.[  ]. 


***  STARTER  SECTION  *** 

Is  that  your  problem: 

Starter  spins  free  but  won’t  engage?  (yes/no)  ==>  n. 

***  LOADING  ENGINE  SECTION  *** 

Do  you  have  a  torque  tool?  (yes/no)  ==>  y. 

Attach  the  torque  tool  to  the  front  crank  wheel  of  the  motor,  and  try 
to  turn  it  by  power. 

Could  you  turn  the  engine  freely?  (yes/no)  ==>  n. 

***  UNLOADING  ENGINE  SECTION  *** 

MOST  LIKELY  DIAGNOSIS  LIST: 

LESS  LIKELY  DIAGNOSIS  LIST: 

High-resistance-in-engine 

yes 

?- 
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>api 

Arity/Prolog  Interpreter  Version  4.0 
Copyright  (c)  1986  Arity  Corporation 
?- (global]. 

VEHICLE  DIAGNOSIS  EXPERT  SYSTEM  IMPLEMENTATION 
Please  enter  “diagnosis"  to  start  the  consultation, 
yes 

?-diagnosis. 

1:  Does  the  engine  start  at  all? 

2:  Does  the  engine  run  poorly? 

Give  numbers  of  questions  whose  answer  is  yes.  [11. 

1 :  Does  starter  turn  at  all? 

2:  Does  starter  turn,  but  not  the  engine? 

3:  Does  starter  turn  the  engine  very  slowly? 

4:  Does  starter  turn  the  engine  normally? 

Give  numbers  of  questions  whose  answer  is  yes. [4]. 

1:  Does  starter  turn  the  engine  very  quickly? 

2:  Does  the  engine  fire  intermittently? 

3:  Does  the  engine  fire  consistently? 

Give  numbers  of  questions  whose  answer  is  yes.  [2]. 

**•  IGNITION  SECTION  *** 

Did  you  hear  a  sound  like  a  detonation? 

Do  you  observe  a  high  level  of  moisture  in  the 
atmosphere? 

Have  you  washed  the  car  recently? 

Check  for  spark  at  the  coil  high  tension  lead. 

Do  you  need  further  explanation? 

Remove  the  coil  high  tension  lead  from  the  distributor  and  position  it 
approximately  1/4"  from  the  ground.  Crank  the  engine  and  observe 
the  spark. 

Is  the  spark  good  and  consistent? 


(yes/no)  ==>  n. 

(yes/no)  ==>  n. 
(yes/no)  ==>  n. 

(yes/no)  ==>  y. 


Do  you  have  a  test-lamp-1 2V? 


(yes/no)  ==>  n. 
(yes/no)  ==>  y. 


i.1 
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Check  the  ignition  switch  “on"  position. 
Do  you  need  further  explanation? 


(yes/no)  ==>  y. 


Connect  a  Jumper  wire  between  the  distributor  side  of  the  coil  and 
ground,  and  a  12V  test  lamp  between  the  switch  side  of  the  coil  and 
ground.  Remove  the  high  tension  lead  from  the  side  coil.  Turn  the 
ignition  switch  on  and  jiggle  the  key. 

Did  the  lamp  light?  (yes/no)  ==>  n. 


Do  you  have  an  ohmmeter? 

Do  you  know  how  to  use  an  ohmmeter? 

Do  you  know  where  the  ignition-coil  is? 

Check  the  ignition  coil  secondary  side  resistance. 
Do  you  need  further  explanation? 


(yes /no)  ==>  y. 
(yes/no)  ==>  y. 
(yes /no)  ==>  y. 


(yes/no)  ==>  y. 


Switch  ohmmeter  to  high  scale,  connect  one  test  lead  to  the 
distributor  cap  end  of  the  coil  secondary  cable,  connect  the  other  test 
lead  to  the  distributor  terminal  of  the  coil. 

Is  the  reading  between  4K  and  8K  ohm?  (yes/no)  ==>  n. 

MOST  LIKELY  DIAGNOSIS  LIST: 

LESS  LIKELY  DIAGNOSIS  LIST: 

defective(coil_secondary_resistance) 

defective(ignition_switch) 
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VEHICLE  DIAGNOSIS  EXPERT  SYSTEM  IMPLEMENTATION 

Please  enter  “diagnosis"  to  start  the  consultation. 

yes 

?-diagnosis. 

1:  Does  the  engine  start  at  all? 

2:  Does  the  engine  run  poorly? 

Give  numbers  of  questions  whose  answer  is  yes.[l,2). 

I  found  a  contradiction! 

Check  and  repeat  your  answer 
1:  Does  the  engine  start  at  all? 

2:  Does  the  engine  run  poorly? 

Give  numbers  of  questions  whose  answer  is  yes.[2). 

1:  Do  you  have  a  hard  starting  problem? 

2:  Do  you  have  a  rough  idle? 

3:  Do  you  have  stalling? 

4:  Does  the  engine  die  at  high  speed? 

Give  numbers  of  questions  whose  answer  is  yes. 1 1.2.4). 

1:  Do  you  have  hesitation  (on  acceleration  from  a  standing  stop)? 
2:  Do  you  have  poor  pickup? 

3:  Do  you  have  lack  of  power? 

4:  Do  you  have  backfire  through  the  carburetor? 

Give  numbers  of  questions  whose  answer  is  yes.[2J. 

1:  Do  you  have  backfire  through  the  exhaust? 

2:  Do  you  have  blue  exhaust  gases? 

3:  Do  you  have  black  exhaust  gases? 

4:  Do  you  have  running  on  (after  the  ignition  is  shut  off)? 

Give  numbers  of  questions  whose  answer  is  yes.[  ]. 


I 

II 


1 


a 


1:  Is  it  susceptible  to  moisture? 

2:  Does  the  engine  misfire  under  load? 

3:  Does  the  engine  misfire  at  speed? 

4:  Does  the  engine  misfire  at  idle  speed? 

Give  numbers  of  questions  whose  answer  is  yes. [31. 


***  IGNITION  SECTION  *** 

Did  you  hear  a  sound  like  a  detonation? 

Do  you  observe  a  high  level  of  moisture  in  the 
atmosphere? 

Have  you  washed  the  car  recently? 

Do  you  have  a  voltmeter? 

Do  you  know  how  to  use  a  voltmeter? 

Check  the  ignition  coil  secondary  side  resistance. 
Do  you  need  further  explanation? 


(yes/no)  ==>  n. 


(yes /no) 
(yes /no) 
(yes /no) 
(yes /no) 


==>  n. 
==>  y. 
==>  y. 


(yes /no)  ==>  y. 


Switch  ohmmeter  to  high  scale,  connect  one  test  lead  to  the 
distributor  cap  end  of  the  coil  secondary  cable,  connect  the  other  test 
lead  to  the  distributor  terminal  of  the  coil. 

Is  the  reading  between  4K  and  8K  ohm?  (yes /no)  ==>  n. 

MOST  LIKELY  DIAGNOSIS  LIST: 

LESS  LIKELY  DIAGNOSIS  LIST: 

defective(coil_secondary_resistance) 
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